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COPIA DE LISTADOS 

Me gustaría que me dieran 
mas información sobre cómo 
Jugar a «El secreto de la Pirá- 
mide», pues no consigo llegar a 
ninguna parte. Pasando a otro 
tema pregunto si hay algún 
modo de copiar los programas 
sin tener que estar horas y ho- 
ras ante el ordenador. 

Adolfo Aladro García 
Madrid 

«El secreto de Ja Pirámide» 
ea un Juego de rol particlpati- 
vo, es decir que puede interve- 
nir toda, la familia, para avan- 
zar por el laberinto y resolver 
enigmas. Te conviene que pre- 
pares un mapa con las inci- 
dencias para que no cometas 
errores a medida que los des- 
cubres. 

Copiar los listados es un 
modo de aprender, pero si no 
quieres hacerlo prueba a in- 
tercambiar cintas con otros 
lectores que ya lo hayan he- 
cho. De todos modoa algo ten- 
drás que ofrecer a cambio. 




DIGITALIZADOR DE VIDEO 



¿Existe algún modelo de 
MSX actualmente en el merca- 
do con digitalizador de vídeo 
incorporado? 

Casimiro Navacqués 
(Alcázar de San Juan) 

Efectivamente, se trata del 
modelo PX-7 de PIONEER del 
cual efectuamos un banco de 
pruebas en este mismo núme- 
ro. 



SONIDO DEL TOSHIBA 

He leído que algunos lecto- 
res que tienen un Toshiba HX 
10 tienen problemas con el so- 
nido, cosa que me ocurrió tam- 
bién a mí. Para corregirlo de- 
ben sintonizar un potenció- 
metro interno del aparato al 
que se accede desmontándolo. 
Si alguien está interesado en 
hacerlo por su cuenta, yo pue- 
do facilitarle una foto de su lo- 
calización para que con un pe- 
queño destornillador lo ajuste. 



Esto sucede con aparatos de 
importación paralela, pero no 
con los de la casa oficial. 

Bruno Bautista Bueno 
Oáoeres 

Desde luego, el problema que 
mencionas es frecuente en los 
aparatos de importación para- 
lela, debido a que las frecuen- 
cias con las que trabajan no 
aon homólogaa a laa españo- 
las. Por eso recomendamos 
alempre que loa aparatos ae 
compren en loa distribuidores 
oñclalea. 

====== 

CINTAS A DISKETTE 

Me gustaría que me infor- 
maran cómo pasar el progra- 
ma Quinielas que habéis edita- 
do en cassette a diskette. Tam- 
bién quiero decirles que serla 
muy interesante que publica- 
ran las instrucciones necesa- 
rias para poder traspasar 
cualquier programa de cinta a 
microdrive, como hacen otras 
publicaciones para ordenado- 
res, como Commodore. 

Antonio Sgo. Noguer 
Idoret de Mar (Girón a) 

El programa Quinielas no 
puede ser pasado directamen- 
te a diskette pues cuenta con 
una protección especial. Con 
respecto a tu sugerencia de pu- 
blicar inatrucclonea para co- 
piar cualquier cinta a diskette, 
lamentablemente no podemos 
hacerlo pues no está dentro de 
nuestra línea editorial, ya que, 
aunque hay gente que copiaría 
programas de buena fe en otro 
soporte, hay otra que lo haría 
con fines poco honestos. Por 
otro lado, la grabación de cual- 
quier listado no protegido pue- 
de hacerse con las instruccio- 
nes dadas en los manuales ad 
hoc. 



JUEGOS QUE 10 : 



Les agradezco lo mucho que 
hacéis por los principiantes. 
Tengo un cassette SVI 767 y 
hace poco compró el Knlght 
Lo re de Ultímate, pero resulta 
que al cargar el Juego, el orde- 
nador lo encuentra pero al 
cabo de un rato la pantalla se 
vuelve negra y ya no aparece 
más nada. ¿Cuál es el proble- 
ma? 

Alberto Recasens López 
Badal o na (Barcelona) 

8egún hemoa podido saber 
loajuegoa de la casa Ultímate y 
de alguna otra casa británica, 
tiene problemas de compatlbl- 
Üdad a raíz de no cumplir con 
las normas impuestas por Mi- 
crosoft. De todos modos, nos 
hemos puesto en contacto con 
Erbe, 8JL Santa Engracia, 17, 
6.°, 28010, Madrid, empresa 



gos 



PIRATERIA 



Quiero denunciar lo que 
gunos personajes están 
ciendo con infinidad de Jueg 
y que considero que es una es- 
tafa. Después de poner un 
anuncio en vuestra revista 
hermana MSX CLUB comencé 
a recibir listas de Juegos de 
muchas casas, incluidos vues- 
tros cassetes. Mi sorpresa es 
que no eran Juegos originales 
sino copiados directamente 
desde las cintas o los cartu- 
chos. A mi esto me parece muy 
deshonesto pues no solo perju- 
dica a las casas sino también a 
los usuarios, pues la calidad de 
la copia es lamentable. 

Juan Qaray 
Madrid 

La Jucha contra la piratería 
es tarea conjunta tanto de 
usuarios como de fabricantes 
y periodistas. Nuestra reco- 
mendación a los usuarios ea 
que no aólo denuncien, como 
tú y otros lectores lo vienen 
haciendo, sino que no se dejen 
engañar adquiriendo coplas 



que comercializa estos pro- 
ductos en España, y noa ha co- 
municado que tal problema ya 
está aolucionado, por lo que 
aquelloa que posean un cartu- 
cho defectuoso pueden can- 
jearlo por otro en la misma 
tienda donde lo compraron o 
bien en la misma empreaa. 



PARADAS DEL CASSETTE 

Les escribo para que me in- 
formen a qué son debidas las 
continuas paradas del cassette 
al cargar o grabar programas. 
Humberto Rodríguez 
García 
Las Palmas de Oran 
Ganarla 

Eato sucede cuando ae grava 
en formato ASCII, debido a que 
funciona en bloquea de 265 ca- 
racteres, al final de cada uno 
de loa cuales ae cierra el con- 
mutador y detiene el cassette. 



80 COLUMNAS 

Recientemente, he adquiri- 
do un ordenador 8VT738 
X'PPuESS con la ilusión (entre 
otras) de poder trabajar en 80 
columnas, pero mi sorpresa 
ha sido que al utilizarlo, me he 
dado cuenta de que sólo puedo 



hacer esto cuando trabajo en 
los sistemas operativos CP/M o 
MSXDOS. ¿Sería posible utili- 
zar el WIDTH80 DEL MSXDOS 
para el BASIC? 
J. M. Camprubl Domeneen 
(Las Palmas) 
Cuando se efectúa Ja carga 
de cualquiera de esos dos siste- 
mas operativos suministrados 
en disco, se reorganiza la ROM 
del ordenador; es decir, se si- 
túa cada sistema operativo en 
un área diferente de la memo- 
ria. Por lo tanto, no ea posible 
acceder a loa comandoa de 
MSXDOS o de CP/M desde el 
BASIC, así como no es posible 
realizar el procedimiento in- 
verso. 




AMPLIACION BEE CARD 



Me gustaría que indicasen si 
en Bee Card hay ampliación de 
memoria y si la hay cuanto 
cuesta. 

Rafael Iborra 
Cartagena 

La tarjeta Bee Card sólo co- 
mercializa por el momento en 
España su versión de Juegos. 



CRITICAS RAZONABLES 



Soy asiduo lector de esta re- 
vista y del MSX CLUB y espero 
serlo de la nueva MSX-2, pero 
quiero manifestarles mis críti- 
cas sobre algunos puntos. Si 
bien el contenido y la forma 
son muy del agrado de los 
usuarios del MSX, muchas ve- 
ces la impresión de las mis- 
mas -sobre todo de los progra- 
mas— es pésima. En segundo 
lugar está el Test de Listado 
cuyo número no coincide aún 
en líneas muy cortas y com- 
probadas. Espero que pronto 
den una solución de acuerdo 
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con la categoría de esa revista. 
Pedro Paredes Tobal 
Cartagena 

Evidentemente tienes razón 
en cuanto a la Impresión de al- 
gunos listados. Hemos tomado 
medidas para que esto no ocu- 
rra según puedes comprobar 
en los últimos números. Sin 
ánimo de descargar culpas, al- 
gunos de estos errores no son 
achacables a la redacción. En 
cuanto al Test de Listados, no 
podemos darte la razón ya que 
el listado del programa, ya 
comprobado, y su correspon- 
diente Test se obtlenén simul- 
táneamente para evitar cual- 
quier tipo de anomalía. 



EXPANSION SVI 

En el n.°15 hablan de un car- 
tucho de expansión SVI 747 de 
Spectravídeo y dicen que es 
para ordenadores MSX, pero-a 
mí me parece que es demasia- 
do pequeña su entrada. Por fa- 
vor denme el teléfono de la 
casa que lo comercializa y dí- 
ganme cuantas Ka. tendré si lo 
compro teniendo en cuenta 
qu« iiii ui-a.eii.adoi tiene ó¿ts. át> 
RAM. 

(firma ilegible) 
Estepona 

Si tienes un ordenador con 
32K de RAM y le aplicas m, 
cartucho de ampliación de 
64K, tendrás 29K libres y 35 
para sistema operativo de dis- 
co. 

El teléfono de SVI España es 
(91)675 75 99. 




VOLCADO DE PANTALLA 

He tecleado el programa de 
volcado de pantalla, pero sólo 
me salen textos aunque no 
gráficos. Yo tengo un Hit Bit 
HB 75P y una impresora plot- 
ter PRN G-¿ de 8ony. Mi pre- 
gunto es el se pueu*. ha»*»! ¡raí 
oado de ya.i baila oca i t-oua oíase 
de impresoras. Me lie puesto 
en contacto con la casa Sony, 



pero aún no he recibido res- 
puesta. Espero que ustedes me 
contesten. 

José A. de la Fuente 
Burgos 

Se pueden hacer volcados de 
pantalla con cualquier tipo do 
impresora. El programa que 
nosotros púbhoamos sólo es 
idóneo para impresoras de 
tipo matricial MSX. Para im- 
presoras de otra norma es ne- 
cesario adaptar los códigos de 
caracteres. Nuestros progra- 
madores están trabajando ac- 
tualmente en un copy para 
plotter. 



en ejecutar la acción. ¿Es fallo 
del ordenador, del joystick o 
del juego? 

José Martines Bueno 

Para enmarcar la pantalla 
emplea Screen 1, COLOR 15, 2, 
4. pul ojeuiplu. Lo importante 
sí j o.c ■¿ada ¿olux sea diíereiiie. 
üuu. juuuioo a iu joyattok, prué- 
uaiu uon ou-os juegos, y si he 
funciona bien haz que te com- 
pi-ueben la tarjeta en la tienda 
donde la compraste. 




MARCO DE PANTALLA 

Tengo aiiuanuii v ¿o y uosé 
cómo enmarcar la pantalla. 
También, quiero comentarles 
que al conectar el joystick 
para Jugar con la tarjeta «24 
tioitm bu Le ta&m»>: jc Sult 
Gard, me tarda, uoa abgunaus 



He observado que en algu- 
nos Juegos comerciales, que 
mandóse üiterx'umpfc» ei Juego, 
ei oruenador haoe un EÚS8BT. 
¿Podríais darme una suorutl- 
Uapara que mis programas bi 

tíer-aa un ttl&ET? 
í.uxb «stlvalls Villanueva 
CBtURJABOT) 

Nada más sencillo. En pri- 
mer lugar, se deben activar Jas 
Ü bet-rupoioneB mediante la 
mswuúción STOP ON. Tras 
esto, ya podemos introducir la 
sentencia ON STOP G08UB (n. ° 
je une*;, r pasa obtener ei 
RESE!, esi ia línea joyo n. ha 
yamos indicado en la senten- 
cia ON STOP OOSUB, colocare- 
mos lo siguiente: 

J'EFUBR ~0:A~ÜSR (O) 
'■OH t £U£ ai ji uenador efeo- 



COLORES EN SCREEN 



—¿Podríais decirme cómo 
conseguir mezclar colores en 
el modo SCREEN 1? 

-¿Cómo puedo realizar un 
SCROLL? 

-¿Qué debería hacer para 
que el ordenador considere un 
carácter determinado como 
un SPRITE? 

Manuel J. Muñoz Martines 
CAndújar) 

A la primera cuestión que 
planteas, te va a responder 
nuestro lector y amigo GER- 
MAN desde Valencia, que ha 
estado experimentando con 
este asunto: 

10 FOR N =0 TO 7: READ 
A.VPOKE 8192 + 1 ' 8 + N, A 
NEXT: DATA 215, 215, 215, 
215, 215, 255, 255, 255, 
ESTE BUCLE CAMBIA TABLAS 
EN SCREEN 1, POR LO CUAL 
HA DE EJECUTARSE EN DI- 
CHO MODO DE PANTALLA 
CONSIGUIENDOSE UNA VI- 
SUALIZARON DE LOS CARAC- 
TERES DISTINTA A LA NOR- 
MAL 

SE PUEDE EXPERIMENTAR 



CAMBIANDO LOS VALORES 
QUE ESTAN FIJOS, YO LO HE 
INTENTADO SOLO CON EL 6 Y 
CON EL 3. 

SE PUEDEN AÑADIR LAS SI- 
GUIENTES LINEAS, CONSI- 
GUIENDO DISTINTOS RESUL- 
TADOS 5 FOR M-l TO 255: 
RESTORE 
15 NEXT 

HABIENDO DE CAMBIAR EN 
LA LINEA 10 EL NUMERO 1 
QUE APARECE POR UNA M. 

Hemos hablado en varias 
ocasiones de los SCROLLS de 
pantalla. Por tanto, te remiti- 
mos a esta misma sección en el 
n.° 15, o a los «trucos del pro- 
gramador» en varios núm. de 
esta revista o bien al artículo 
«SCREEN 2 en alta velocidad» 
publicado por Wílly Miragall 
en el n.° 13 de nuestra revista 
hermana MSX CLUB. 

En cuanto a la tercera cues- 
tión que planteas, te remiti- 
mos a los TRUCOS DEL PRO- 
GRAMADOR del n.° nueve de 
esta revista, donde hay un lis- 
tadito para transformar el 
cursor en SPRITE. 



UBOOTyOTHOS 

Quería saber si vuestro Jue- 
go U-Boot y El Secreto de la Pi- 
rámide son para 16K o más. 

francisco MembxUla Olea 
duadlx carenada) 

Todos nueetroB juegos son 
para ordenadores de 32K o 
más. 




CATALOGO DE JUEGOS 

Tengo algunos problemas 
con vuestro Juego U-Booty les 
ruego que me indiquen cómo 
solucionarlos. Por otro lado 
con respecto a la pregunta que 
hacía un lector sobre si existía 
un catálogo de juegos y voso- 
tros contestabais que no, pues 
debo decirles que Sony cuenta 
con uno. 

José Hernandos 

SI tienes problemas con al- 
guna de nuestras cassettes, 
primero te recomendamos que 
veriñques las condiciones de 
carga. Si aún así persisten, en- 
víanos o trae tu cassette a 
nuestro Dpto. de Programa- 
ción y con mucho gusto te lo 
comprobaremos. Recuerda 
que nuestros productos están 
garan tizados. 

En relación al catálogo de 
juegos, cu w reñeres a ia lisia 
ae juegos de Sony pero, ei mis- 
mo sólo mtegi'a aquellos que 
esta firma comercializa. De to- 
dos modos, a raíz de una reu- 
nión de fabricantes de MSX de 
la que hemos dado cuenta, se 
está confeccionando un com- 
pleto catálogo con todo el soft- 
ware existente en el mercado 
español. Sobre el particular 
nuestra editorial, también 
prépavé jumeic especial 
;<» u aoJtmti'e le ar. ir-eteur 
miento y de uiüidau uenuesu-o 
mercado. 
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PRIMERAS 
JORNADAS MSX 

Organizadas por 
Manhattan Transfer 



Nuestra editorial ya 
está trabajando con- 
juntamente con las 
principales marcas de apara- 
tos MSX y fabricantes de soft- 
ware para llevar a cabo las 
PRIMERAS JORNADAS MSX. 
Dichas jornadas tendrán lu- 
gar el próximo mes de sep- 
tiembre en el marco del SONI- 
MAG, la famosa feria de Barce- 
lona. 

El objetivo de las PRIMERAS 
JORNADAS MSX es la de po- 
ner de manifiesto, tanto desde 
el punto de vista racional 
como funcional la importan- 
cia de la norma. Para ello se 
contará con la presencia de 
destacados profesionales es- 
pañoles y extranjeros que 
abordarán distintos aspectos 
técnicos que fundamentan las 
ventajas del sistema. Asimis- 
mo se analizarán las cuestio- 
nes fundamentales para el de- 
sarrollo de un software espa- 
ñol especifico. 

Es intención de Manhattan 
Transfer, SA.. que las PRIME- 
RAS JORNADAS MSX resulten 
de gran interés tanto para las 
compañías del sector como 
para los miles de usuarios de 
un sistema cada vez más con- 
solidado en nuestro mercado. 



AVISO IMPORTANTE A 
NUESTROS LECTORES 



Lamentamos comunicar 
a todos los usuarios de 
nuestras cassettes que 
hemos detectado en el merca- 
do copias piratas de nuestros 
programas concretamente U- 
BOOT, QUINIELAS y SNAKE. 
Dichos programas se comer- 
cializan bajo mano y de forma 
totalmente ilegal. Por ello ad- 
vertimos que no podemos ha- 
cernos responsables del fun- 
cionamiento de ellos, ya que no 
poseen nuestra garantía. Tam- 
bién hemos constatado que es- 
tas CINTAS PIRATAS, tienen 
serios problemas de carga de- 
bido a su pésima duplicación, 
lo que advertimos a aquellos 
que no «puedan resistir la ten- 
tación»^ COMPRAR ESTAS 
CASSETTES PIRATAS ADE- 
MAS DE FOMENTAR EL CO- 
MERCIO ILEGAL, ES TIRAR 
EL DINERO A LA BASURA. 
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LOTEA] 



TENTE 



Al hacer un programa y ju- 
gar un buen rato con él, com- 
probando que no tiene ningún 
error, lo grabo y compruebo 
poniendo CLOAD? «nombre 
del programa». Pero sucede 
que cuando quiero Jugarlo otra 
vez y lo cargo, ya no puedo ju- 
garlo porque me salen errores 
y líneas que el programa no te- 
nía. Líneas que al Intentar bo- 
rrarlas me sale Undeflned Une 
number... 

Manuel Bravo Ortiz 
CaleUa (Barcelona) 

Lo que nos planteas ea un tí- 
pico error de oarga, por lo que 
te recomendamos que limpies 
bien loa cabezales de tu graba- 
dora y que vigiles bus pilas, 
pues puede suceder que al sal- 
var el programa tenga una po- 
tencia determinada y al car- 
garlo otra. 




UN ORDENADOR POR FAVOR 

Quiero pedirles un favor. He 
mandado muchas cartas a 
concurso pero nunca me ha to- 
cado ningún ordenador. Míe 
padres no tienen muchos me- 
dios económicos para com- 
prarme uno, aunque sé bas- 
tante de informática y en espe- 
cial de MSX, gracias a vuestras 
revistas. Por esto les pido que 
me regalen un aparato para 
que pueda estudiar. 

Daniel Lamata 
Oral. Rincón D. 
Pta. 14 i.°D 
Caín (Málaga) 
Trasladamos tu solicitud a 
nuestros lectores y a los fabri- 
cantes. 



BOWORAADIBU JO PUTO APURO 

Refiriéndome al programa 
«Dibujar punto a punto» publi- 
cado en la sección Trucos del 
programador de enero, les co- 
munico que hay un error en la 
línea 190, la cual debe ser 190 
GOTO 60. De todos modos para 
que funcione de acuerdo con la 
explicación y algo mejor debe- 
mos quitar la línea 180, corre- 
gir la línea 140 D? A*= M " 
THEN 80 y añadir una línea 56 
IP 8TRIG(0)=-1 THEN 200. 

Por otro lado os envío dos 
programas cuya ejecución lle- 
va el mismo resultado. 
Antonio Rodrigue» Tran- 
cha 

Barcelona 

Gracias por tu colaboración. 
Los dos programas están sien- 
do analizados para su inclu- 
sión en Trucos del programa- 
dor del mes que viene. 



MEJORAS A COUSTEAU 

Me he permitido hacer unas 
pequeñas modificaciones a 
Cousteau aparecido en el n.° 
10: 

Línea 1420 A= A + .2 
Línea 1680 CC=CC+1: LINE 

(9, 30)-(ll, 180), 12, BP: 

A=0. 

Con estas modificaciones 
conseguiremos que al llevar el 
cofre a la superficie el aire que 
hemos gastado se nos repon- 
ga. Pero este aire también se 
irá mas de prisa, es decir que 
tendrás que darte más veloci- 
dad en coger el cofre y volver. 

VirgUio Ledo Fernandas 
Club Amigos del SVI 388 



Gracias. 



POKES 



Tengo problemas con las di- 
recciones de los POKES. Entre 
las direcciones de memoria 
16286 y 16383 me resulta im- 
posible introducir datos. ¿Qué 
hay en esas direcciones? Por 
curiosidad pokeo en las direc- 
cione 32771 y 32772 con el 
dato y luego pokeo también 
en la dirección 32770 con el 
dato 23 (vale también la direc- 
ción 32769 pudiéndose cam- 
biar el dato). Tras esto tecleo 
LIST y en la pantalla me apare- 
ce un listado rarísimo. ¿Qué he 
hecho? 

PEREZ MONTES 
(MALLORCA) 

Vamos por partes. En las di- 
recciones 1 6266 y 1 6363 te re- 
sulta imposible introducir da- 
tos mediante la instrucción 
POKE porque pertenece a la 
ROM del sistema, y no es modi- 
ñcáble por el usuario median- 
te la utilización de POKE. 81 se 
desea acceder a la ROM, deben 
utili zarse las /unciones DE- 
FUSR y USR tal como se viene 
explicando en la serie «del 
Hard al Soft» que publicamos 
mensualmente en estas pági- 
nas. 



Output 



Con referencia a tus experi- 
mentos en las direcciones que 
mencionas, en primer lugar te 
diré que es absolutamente in- 
diferente que introduzcas el 
dato en la dirección 32778, 
puesto que si trabajas en modo 
directo y no tienes ningún pro- 
grama cargado, el contenido 
de esa dirección es 0. Natural- 
mente, esto sucede porque 
esas direcciones pertenecen al 
área de la RAM donde se alma- 
cenan los programas en BA- 
SIC con sus números de línea. 
De ahí que cuando comiences a 
experimentar en las direccio- 
nes que mencionas te salgan 
listados inverosímiles. Debes 
saber que poke, aún siendo 
una instrucción BASIC está ín- 
timamente relacionada con el 
lenguaje máquina. Por lo tan- 
to, al colocar contenidos al 
azar en las direcciones donde 
se almacena el programa BA- 
SIC, lo que consigues es que el 
ordenador interprete esos da- 
tos como un programa. 

Te recomiendo encarecida- 
mente que no te dediques a PO- 
KES a diestro y siniestro sin 
saber exactamente lo que pre- 
tendes. Si sigues obrando de 
una manera tan desorganiza- 
da vas a desperdiciar cantida- 
des Ingentes de tiempo colgan- 
do el sistema u obligándolo a 
relniciallzarse. 

Para que aproveches mejor 
tu tiempo, y sepas lo que pre- 
tendes cada vez que haces un 
POKE, te recomiendo que leas 
detenidamente todos los artí- 
culos de la serle «del Hard a 
Soft» que te van a resultar te- 
rriblemente útiles y que ad- 
quieras el «ESPECIAL LEN- 
GUAJE MAQUINA» de esta 
misma revista y que ya está en 
los quioscos. Con respecto a 
las direcciones de memoria úl- 
timas que citas, si hubieras 
procedido de una manera or- 
ganizada, sabiendo cómo está 
distribuida la memoria (viene 
en todos los manuales) tal vez 
hubieras realizado el proceso 
inverso, que en este caso es el 
acertado. Si en primer lugar 
hubieras leído mediante PEEK 
las direcciones comprendidas 
entre la 32768 y la 33000, por 
ejemplo y hubieras anotado 
los valores, si después hubie- 
ras introducido un corto pro- 
grama BASIC, y hubieras vuel- 
to a leer los contenidos de esas 
direcciones, hubieras observa- 
do que se han modlñoado los 
contenidos iniciales precisa- 
mente para almacenar el pro- 
grama BASIC en código máqui- 
na. Espero que esta pequeña 
pista te sea de utilidad, pero no 
malgastes tus energías traba- 
Jando desordenadamente. 
Compra nuestro especial len- 
guaje máquina; te ahorrará 
muchas horas. 



SUSCRIBETE HOY MISMO SI 




QUIERES ESTAR EN VANGUARDIA 



La primera revista de MSX de España en ta domicilio cada 
mes. Por el precio de DIEZ NUMEROS recibirás DOCE. 

Además tu condición de suscriptor te da derecho 
a descuentos y ofertas especiales en otos productos. 
MANHATTAN TRANSFER, SJL 



Calle 



Ciudad 



Tel. 



Provincia 



Deseo suscribirme a la revista 
SUPERJUEGOS EXTRA MSX 

a partir del número 

FORMA DE PAGO: Mediante talón ban- 

cario a nombre de: 

MANHATTAN TRANSFER, SJL 
O/. Roca i Batlle, 10-18 
08083 Barcelona 



Muy importante: para evitar retraaos en la 
recepción de los números rogamos deta- 
lléis exactamente el nuevo número de los 
distritos postales. Gracias. 



Ptas. 1.780,- 
Ptas. a.ooo,- 
Ptaa. 8.800 - 
Ptas. 88 USA $ 



España por correo normal 
Europa correo normal 
Europa por avión 
América por avión 



NUMEROS ATRASADOS • NUMEROS ATRASADOS 



ORDENADOR 



GOLDSTAR FC200 



ir ■ mSH¡ 



MSX 2.» Edición 

N.°* 1,2,3,4 - 450 PTAS. 






MSX 14 160 PTAS. 



M9X15 175 PTAS. 



MSX16 175 PTAS. 



MSX17175 PTAS. 



MSX 18 175 PTAS. 



¡LA 1. a REVISTA DE MSX DE ESPAÑA! 

PARA QUE NO TE QUEDES CON LA COLECCION INCOMPLETA SOLO TIENES QUE ENVIAR HOY 
MISMO EL BOLETIN DE PEDIDO CON TUS DATOS PERSONALES A «SUPER JUEGOS EXTRA MSX» 



r 



Deseo recibir los números 

para lo cual adjunto talón del Banco 

Nombre y apellidos 

Dirección 

Población 



„ _ de SUPERJUEGOS EXTRA MSX 

n.° a la orden de Manhattan Transfer, SJL 

„ Tel.: 

DP PrOV <<Mo Be admlte contrarreembolso» 



— 



PIONEER PX-7 



EL FUERA DE SERIE 



Asimple vista, este aparato no parece un M&JL Estamos acostumbrados a ver el ordenador en ana consola 
donde va integrada ia memoria y las entradas para periféricos, mientras oue en este aparato el teclado 
está separado de la anidad central y las entradas/ salidas de periféricos. 



Realmente, este equipo diseñado por 
PIONEER dentro de ia norma MSX re- 
sulta atractivo para aqueiios usuarios 
que pretendan realizar tratamiento de 
imagen o de sonido sobre todo Lo 
atractivo del diseño oel equipe- que per- 
mite trabajar con la unidad central situa- 
da en el mueble del equipo audio, o en 
otra estantería mientras el teclado está 
situado sobre la mesa de trabajo, hacen 
que este equipó ademas de ui ia necesi 
dad sea un capricno. En ia pane rronial 
de la consola, encontramos ei intenup- 
tor e indicador de alimentación, el útilísi- 
mo botón RESET, el interruptor VIDEO/ 
AUDIO de alimentación, que sirve para 
seleccionar las señales de saiiaa de los 
terminales VIDEu/AuDiu del uauei tra- 
sero, el conector del teclado, los ports 
de los joysticks. 

La entrada para auriculares, ei control 
de volumen (para altavoces externos o 
auriculares), el control dei nivel de mez- 
cla (para mezclar los sonidos generados 
por ei PSu cor. otras fuentes oe auuio 




feclaao <fe funcione* asnéeteles. 



externas) y la primera ranura de cartu- 
cho. 

En la parte posterior de la consola, en- 
contramos los terminales Audio mput R 
(canal derecrio), L (canal izquierdo) Au- 
dio Output (R, L), Video input y Video 
Output. También en esta parte trasera 
tenemos los conector es Rk R<dB ; cone 
xión pai a cassette y para impresora y la 
segunda ranura de cartucho Además 
de esto lleva un torniilito para ajustar ¡os 
di .aies de televisión entre ei oanai ib y 
ei V 

El teclado, además de su atractivo di- 
seño incorpora en su lado izquierdo tres 
teclas exclusivas de este ordenador - Se 
trata de ias tecias SUPERIMPOSE, v¡- 
üt<j y UÜMPUIER. 

La tecla SUPERIMPOSF permite que 
ias imágenes y sonidos generados por 
ei PX- / se sobreimpresioi 1er i er i las imá 
genes y sonidos de ra unidad de víaeo 
conectada a los terminales de entrada 
del panel trasero del ordenador. 

La tecla VIDEO hace que sólo se vea 
ia imagen procedente del equipo de vi 
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M&zclddor óg sonido 

deo conectado al terminal de salida del 
PX-7. El sonido del vídeo conectado y el 
generado por el PSG del ordenador se 
combinan y salen por los terminales de 
salida audio a los altavoces externos. La 
tecla COMPUTER, por último regresa al 
ordenador a su modo de operación habi- 
tual: Es decir, tan sólo tienen salida las 
imágenes y sonidos generados por el 
ordenador. 



prestaciones: 
del equipo 



jUSIVAS 



FUNCION DE SUPERIMPOSE 

Esta función sirve para sobreimponer 
gráficos de computador en las señales 
de videodisco, VCR o cualquier otra 
fuente de vídeo; también permite grabar 
los dibujos sobreimpuestos en una cinta 
de vídeo. 

FUNCION MEZCLADORA DE ESTEREO 

Esta otra interesante función exclusi- 
va permite mezclar los sonidos genera- 





Vista posterior del PX-7 Pioneer con todas sus conexiones. 



dos por el Generador Programable de 
Sonido (PSG) con las señales sonoras 
de un equipo audio. El nivel de mezcla 
del sonido combinado puede ser varia- 
do. Los terminales de entrada/salida 
son compatibles para la reproducción 
en estéreo. 

FUNCION DE CONTROL DE SISTEMA 

Esta función (exclusiva para los equi- 
pos a control remoto de PIONEER) per- 
mite controlar a distancia los equipos de 
laservisión y de audio. 

Lógicamente, para tener acceso a to- 
das estas funciones del equipo, se pre- 
cisa una extensión del BASIC MSX ha- 
bitual. El PX-7, la lleva incorporada, y se 
selecciona al iniciarse el sistema. La 
pantalla inicial permite seleccionar, pul- 
sando las teclas 1 ó 2, el BASIC MSX or- 
dinario o bien el P-BASIC -extensión de 
PIONEER al BASIC MSX-. En el caso 
de que se seleccione esta segunda op- 
ción, la memoria RAM disponible será 
de 28751 bytes, puesto que la expan- 
sión del BASIC tan sólo ocupa 64 bytes. 



SOBREIMPRESION DE VIDEO 

Tal vez la función que más llame la 
atención de los futuros usuarios sea la 
del SUPERIMPOSE. Para acceder a 
esta función, el comando que controla 
este proceso es 

CALL IMPOSE (MODE) 

Donde MODE puede adoptar los si- 
guientes valores: 

MODEO: Modo de ordenador. Sólo 
muestra las imágenes gene- 
radas por el ordenador: 
MODE 1 : Modo superimpose. La ima- 
gen del ordenador se so- 
breimpresiona sobre la ima- 
gen de vídeo en la pantalla. 
MODE 2: Modo de vídeo externo. Tan 
sólo se visualiza la imagen 
transmitida por el vídeo. 
Naturalmente, los modos 1 y 2 que- 
dan sin efecto si no hay conectada una 
fuente externa de vídeo. 






c 


■SU 


CA 




CPU 

FRECUENCIA CLOCK 
MEMORIA ROM 
MEMORIA RAM 
MODO TEXTO 
RESOLUCION GRAFICA 
COLORES 
SPRITES 
SALIDAS VIDEO 

CONTROL DE PANTALLA 



TECLADO 
SONIDO 



LENGUAJES 
DISTRIBUIDOR 

Precio aproximado 



Z80A 
3'58MHz 

40K (32MSX BASIC, 8K P-BASIC) 

48K (incluyendo 16KVRAM) 

40X24; 32X24 

256 x 192 puntos 

16 

256 

PAL vídeo compuesto 
RGB 

Computer 

Superimpose 

Externa! video 

Separado, 76 teclas QWERTY 

Cable DIN13-pin 

Fuente (PSG) y entradas audo externas 
Salida: Altavoces Stéreo 

Auriculares Stéreo 

Línea Stéreo 
Control de mezcla ± 15 dB 
Control de Sistema (Láser Vision Player) 
Cassette Señal FSK • 
Impresora Centronics 
Controladores: 2 PORTS 
Cartucho: 2 ranuras 
Todos los disponibles para la norma 
Pioneer Electronics España, S A. 
Bolivia 234 - 08020 Barcelona 
90.000 pts. 
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Para trabajar en la sobreimpresión de 
vídeo, un periférico indispensable es la 
tableta gráfica PIONEER, pero para po- 
der sacar el mayor partido posible es in- 
dispensable un software que permita 
crear, animar, editar, salvar la informa- 
ción: Se trata del cartucho MSX VIDEO 
ART, también de PIONEER. 

Si disponemos de ambas cosas, ya 
podemos comenzar a trabajar con ellas. 
Una vez conectado el cartucho en el sis- 
tema, y tras la pantalla de presentación, 
aparece un menú con las funciones an- 
teriormente descritas. 

Para escoger cualquiera de estas fun- 
ciones, debe presionarse con el lápiz 
sobre la tableta la opción deseada. 

Si seleccionamos la opción CREATE 
ART, ésta nos va a permitir trazar líneas, 
trazar líneas a partir del último punto 
dado, trazar (con lápiz grueso o delga- 
do), dibujar círculos, cuadrados, cam- 
biar el color de fondo, situar caracteres 
en cualquier lugar del dibujo, llenar 
áreas de color, borrar una parte o la tota- 
lidad del dibujo y limpiar la pantalla. 

La opción ANIMATE DRAW sirve muy 
bien para la creación de dibujos anima- 
dos. Se pueden seleccionar hasta 8 
imágenes para crear la sensación de 
movimiento, lo que permite un sinfín de 
combinaciones. Naturalmente, todas 
las secuencias de animación pueden al- 
macenarse en soporte magnético (disco 
o cinta) y recuperarse cuando se requie- 
ran. . 

Con CREATE MOVEMENT se puede 
dar movimiento a todos los dibujos que 
hayamos realizado con la opción ANI- 
MATE DRAW, simplemente desplazan- 
do el lápiz por la superficie de la tablilla 
gráfica. Una vez hecho esto, es posible 
comprobar si el movimiento es el correc- 
to seleccionando sobre la tablilla la ins- 
trucción TEST RUN, que va a reproducir 
el movimiento que hayamos realizado 
sobre la tableta en la pantalla con la figu- 
ra escogida. 

La función EDITING permite el editaje 
y la sobreimpresión en vídeo. Para tra- 
bajar en este modo, es preciso tener co- 
nectado un aparato de vídeo, puesto 
que en caso contrario se oscurecerá la 
pantalla dando paso al menú inicial. 

En modo EDITING se puede simulta- 
near el trabajo de CREATE ART y ANI- 
MATE DRAW. Una vez editadas las 
imágenes, debe seleccionarse en la ta- 
blilla SUPERIMPOSE ON, con lo que se 
sobreimpresionarán los dibujos que ha- 
yamos podido realizar sobre la imagen 
del vídeo, pudiendo lograr tratamientos 
de imagen sorprendentes. En el mo- 
mento en que seleccionemos SUPE- 
RIMPOSE OFF, la pantalla tan solo 
mostrará la imagen del ordenador. A la 
vista de lo dicho, podemos concluir que 
este equipo, el PIONEER PX-7 no es un 
MSX más; es un fuera de serie que Pio- 
neer Electronics España, S.A. importa y 
comercializa de un modo muy selectivo 
por el momento, debido a la estrategia 
impuesta por Pioneer de Japón. 
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NIDOS A 

WME DE ALTA CALIDAD PAR A MSX 



QUINIELAS 



Cíe CASSEHES 



KRYPTON. La batalla mas audaz de las gala- 
xias en cuatro pantallas y cuatro niveles de 
dificultad, ün Juego cuya popularidad es cada 
vez más grande entre los usuarios del MSX. 
PVP.500Ptas. 



El secreto de la 





DE LA PIRAMIDE. Atrevido 
juego de aventuras a través de loa misterios 
y peligros que encierran los laberínticos pa- 
sillos de una pirámide egipcia. (Atrévete si 
puedes! FVP. 700 Ras. 



Nombre y apellidos: 
Dirección: 
Población: 



□ KRYPTON 

□ U-BOOT 

□ QUINIELAS 




V 



CON GARANTIA 




U-BOOT. Sensacional Juego de simulaolón 
submarina en la que tienes que demostrar tu 
pericia como capitán de un poderoso subma- 
rino de guerra. Panel de mandos, sonar, tor- 
pedos, etc. 




QUINIELAS. El más completo programa de 
quinielas con estadística de la liga, de los 
aciertos, etc. e impresión de boletos. Acertar 
no 6iempre es cuestión de suerte. PVP. 700 
Ptas. 



8NAKE. Entretenido y muy divertido Juego 
en el que Bnake procura comer unos núme- 
ros que la engordan. Tanto las murallas que 
la rodean como su 



STAR RUNNER. Conviértete en el audaz 
piloto Interestelar y lucha a muerte, a 
través del hiperespacio, contra las defen- 
sas del tirano Daurus. Dos pantallas y 
cinco niveles de dificultad. PVP. 1.000 pts. 




FLOPPY, El Preguntón, ün verdadero desafio 
a tus conocimientos de Geografía e Historia 
española Floppy no perdona y te costará 
mucho superarlo. PVP. 1.000 Ptas. 



CP 



Prov. 



Tel.: 



_ 



Ptas. 500,- □ SNAKE 

Ptas. 700- □ EL SECRETO DE LA PIRAMIDE 

Ptas. 700,- □ STAR RUNNER 

Gastos de envío certificado por cada cassette Ptas. 70- 

Remito talón bancario de Ptas. a la orden de Manhattan Transfer, S A. 



Ptas. 600- 
Ptas. 700,- 
Ptas. 1.000- 



ATENCION: Los suscriptores tienen un descuento del 10% sobre el precio de cada cassette. 
ES MSX CLUB DE CASSETTES. ROCA I BATLLE, 10-12 BAJOS. 08023 BARCELONA 



NUESTRAS CASSETTES NO SE VENDEN EN QUIOSCOS. LA UNICA FORMA DE ADQUIRIRLAS ES SOLICITANDOLAS 

A NUESTRA REDACCION. ¡NO SE ADMITE CONTRA REEMBOLSO! 



GESTION DE SUBRUTINAS 



PORJ.C. 
GONZALEZ 



Las subrutinas constituyen una importante herramienta de trabajo para los programadore 
permiten una serie de controles Jerárquicos de las funciones del programa. 



Un científico cuando decide realizar 
una investigación lo primero que se 
plantea es elproblema y objeto de su es- 
tudio, y en función de éste formulará un 
diseño metodológico estructurado, que 
le permitirá saber, en primer lugar, la 
viabilidad de su investigación, y si lo es, 
todos los pasos necesarios para llevarla 
a término. Todo ello sin dejar nada al 
azar. 

Un programador, al igual que el cientí- 
fico, debe plantearse el objeto de su pro- 
grama, cuál es el problema que plantea 
programar una determinada gestión, y 
luego realizar el diseño o la estructura 
del programa que le permitirá resolver el 
objeto que se había planteado. 

Todo el proceso viene dado por un 
«método de trabajo» definido por una 
serie de reglas y técnicas de programa- 
ción. 

DEFINIENDO LOS AMBITOS DEL 
PROGRAMA 

Si nos ponemos a programar directa- 
mente, tal y como nos vienen las ideas 
sin tener primero bien claro el objeto del 
programa, es decir, qué es lo que pre- 
tendemos que haga ese programa, lo 
que resultará será una amalgama de ru- 
tinas y sentencias entremezcladas, que 
la menor modificación creará tal serie de 
interdependencias y procesos no de- 
seables con objetivos y funciones dife- 
rentes, que se nos escaparán de todo 
análisis que hagamos. 

Para que ello no ocurra debemos to- 
mar el programa como un sistema que 
integra elementos que de por sí son in- 
dependientes y que nosotros establece- 
remos entre ellos las relaciones que nos 
interesen. De esta manera tendremos: 
el sistema que es el programa en su 
conjunto, y los elementos que integran 
el programa que serán: elementos de 
entrada, de proceso, y de salida, a los 
cuales relacionaremos en función del 
objeto del programa. 



SISTEMA 







(programa): ((entrada)* (proceso) » (salida)) 



Siguiendo este modelo, una vez tene- 
mos la finalidad del programa, pasamos 
a definir el ámbito de cada elemento: 
consistirá en determinar cual es exacta- 
mente la entrada y la salida, así como el 
formato que deben tener. Cuanto mejor 
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definido esté, más fácil será diseñar las 
sentencias a llevar a cabo. Es esencial 
tener en cuenta al definir, lo que es físi- 
camente posible con el hardware y firm- 
ware de que se dispone (viabilidad). 
Una vez definidas las funciones de 





y de salida, es necesario definir 
o especificar, en relación a lo anterior 
las tareas del proceso que serán tanto 
más fáciles de convertir en sentencias 
cuanto más definidas estén las de entra- 
da/ salida. 

DISEÑP JERÁHQUICO DE ENTRADA 
PROCESO/ SALIDA 

Cuando ya tenemos el programa-pro- 
blema definido por su entrada y su sali- 
da, debemos descomponer el proceso 
en partes más simples; simples en el 
sentido en que a la vez que lo estamos 
especificando y definiéndolo más, nos 
será mucho más útil y simple progra- 
marlo. 

Las divisiones han de cumplí'' dos 
condiciones: ser exhaustivas y exclu 

DIAGRAMA A 



yentes entte sí. Por una parte, hemos 
partido de una descripción qeneral del 
problema v hemos realizado una serie 
de divisiones del mismo, por su natma- 
leza más simples, por lo tanto la suma 
total de las divisiones nos ha de dar e! 
problema inMal en definitiva han de sei 
exhaustivas. Otra cuestión es la exclusi- 
vidad, se refiere a que cada división que 
hagamos ha de cumplir una tarea espe- 
cífica y única. La estructura de estas di- 
visiones siguen también el modelo de 
entrada/proceso/salida pero aplicado a 
la subárea concreta de cada división. 

Siguiendo este esquema de divisio- 
nes, y cumpliendo siempre los dos crite- 
rios anteriores, debemos ir dividiendo 
cada vez más cada parte hasta conse- 
guir que cada una de ellas pueda expre - 
sarse directamente utilizando e' menor 
número posible de sentencias Por 




ejemplo, si al proceso general lo hemos 
diviHidf on trps nartes. V r ada una de 
esae OHü.ew s.guen siendo aún muy am- 
plias v poco definidas, iremos subdivi- 
diéndolas a su vez en otras, hasta con- 
seguir concretarlas al máximo (Ver dia- 
grama A) 

Las diwsiones pueden expandirse 
tanto como sea necesario, o nada en ab- 
soluto, según sea el caso. El sumatorio 
de cada uño de los niveles de las divisio- 
nes que hagamos siempre deberá dar 
come resultado e' proreso general. Por 
último hay que añadir que cada si ihdivi 
sión tomará su entrada o bien de la en 
trada al programa, o bien de la salida de 
la subdivisión precedente, por ejemplo: 
en el gráfico, "A" tomará su entrada de 
la entrada principal al proceso, mientras 
que ¿n:> tiatn a» a su entrada de la salida 
de"a1 1 \ 




• "2.1 

*N — a 2í 



b 2 




b 3 , 
b 32 



1 c 12 



= A + B +C = PROCESO 

2. ° £ = ^ + % + b, +... + c 2 =PROCESO 

3. ° = a*, + a,. 2 + 3^ +3 + 

... + c 2 , + c 22 = PROCESO 



C 2 .1 
^2.2 
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Tenemos que recordar que el orden 
establecido en las divisiones no se pue- 
de alterar en el sentido de ir hacia atrás o 
adelante, o realizar saltos, para ello te- 
nemos que emplear una serie de medi- 
das que exponemos a continuación. 

Uno de estos casos es cuando tene- 
mos subrutinas totalmente indepen- 
dientes (p.e./ subrutinas que se usan 
para la lectura de datos de varias de las 
rutinas del programa), del curso del pro- 
grama. Para solucionar este caso, tene- 
mos que construir la rutina independien- 
temente del resto del programa y colo- 
carla al final del diagrama, dejando, eso 
sí, varios niveles de separación. Para el 
punto del diagrama desde donde se re- 
quiere hasta Ta subrutina se indica con 
trazo discontinuo. 

Otra cuestión a tener en cuenta es 
como se manejan las condiciones, del 



BASIC MSX, que pueden provocar inte- 
rrupciones. Este es el caso de las ruti- 
nas de desvío del tipo ON condición 
GOSUBnnnn. Para tratar este tipo de 
subrutinas se construyen a parte, dejan- 
do varios niveles, pero estando alerta 
para que no influyan, ni dependan del 
programa principal en el que se produce 
la condición que puede provocar la inte- 
rrupción. Por otra parte hay que prestar 
atención al control de condiciones, 
puesto que forma parte del programa 
principal, y se tiene que especificar si se 
han cumplido o no las condiciones, para 
controlar que el proceso se realiza co- 
rrectamente, todo esto debe formar par- 
te de la sección principal de la descrip- 
ción del programa. 

Este sistema de programación jerár- 
quica nos permite obtener una descrip- 
ción muy precisa del programa, por lo 




que la redacción resulta muy sencilla de 
realizar, además de solucionar muchos 
de los problemas de construcción Ínter- 
corrección final del programa. 



REGALATE Y DISFRUTA DE UN LIBRO 
VITAL PARA EL USUARIO DE MSX 



UN LIBRO PENSADO 
PARA TODOS LOS QUE 
QUIEREN INICIARSE 
DE VERDAD EN LA 
PROGRAMACION BASIC 

Construcción de programas. El po- 
tente editor todo pantalla. Constan- 
tes numéricas. Series, tablas y ca- 
denas. Grabación de programas. 
Gestión de archivo y grabación de 
datos. Tratamiento de errores. Los 
gráficos del MSX. Los sonidos del 
MSX. Las interrupciones. Introduc- 
ción al lenguaje máquina. 



JAVItK (.1 I mu no 



.JUAN C AHI OS GON/AI I / 



Dncabtr (toe •tana wmcrti 

jtnu mii lelixiiUd it tjccuclfa 
componer música a una. dos o Ires voces 
organizar tus propios programas de gestión,... 

LOS SECRETOS DEL 




Y ADEMAS PROGRAMAS 
DE EJEMPLO 

Alfabético. Canon a tres voces. 
Moon Germs. Bossa Nova. Blue 
Bossa. La Séptima de Beethoven. 
La Flauta Mágica de Mozart. Scra- 
ple from the apple & Donna Lee. The 
entretainer. Teclee un número. Ca- 
lendario perpetuo. Modificación 
Tabla de colores SCREEN 1 . Rec- 
tángulos en 3-D. Juego de caracte- 
res alfabéticos en todos los modos. 
Juego Matemático. Más grande más 
pequeño. Poker. Breackout. Apoca- 
lypse Now. El robot saltarín. El ar- 
chivo en casa. 



Deseo me envíen el libro Los secretos del MSX, para lo cual adjunto talón de 1.500 ptas a la orden de 
MANHATTAN TRANSFER, S.A. Importante: No se hace contra reembolsos. 

Nombre y apellidos 

Calle n.° Ciudad CP 

Este boletín me da derecho a recibir los secretos MSX en mi domicilio libre de gastos de envío o 
cualquier otro cargo. 

Importante: Indicar en el sobre MANHATTAN TRANSFER, S.A. 

«LOS SECRETOS DEL MSX» 

Roca i Batlle, 10-12 Bajos-08023 BARCELONA 
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2.° GRAN 




X^ONCUBSOl 


PROGRAMA 


|| DEL AÑO 



CREA Y ENVIANOS TU PROGRAMA. HAT PREMIOS PARA TI 7 PARA LOS QUE 
TE VOTEN. CADA MES PUBLICAREMOS A MAS DE UN GANADOR QUE OPTARA 
POR EL «LISTADO DE ORO» Y UNA FABULOSA UNIDAD DE DISCO. 




BASES 



1- Podrán participar todos nuestros 
lectores cualquiera sea su edad, con 
uno o más programas. 

2- Los programas se clasificarán en 
tres categorías: 

A- Educativos 

B- Gestión 

C- Entretenimientos 

3- Los programas, sin excepción, debe- 
rán ser remitidos grabados en cas- 
sette virgen, debidamente protegida 
dentro de su estuche plástico en el 
que se insertará el cupón-etiqueta 
que aparece en esta misma página, 
debidamente rellenado. 

4- No entrarán en concurso aquellos 
programas plagiados o ya publicados 
en otras publicaciones nacionales o 
extranjeras. 

5- Junto a los programas se incluirán 
en hoja aparte las instrucciones co- 
rrespondientes, detalle de las varia- 
bles, ampliaciones o mejoras posi- 
bles y todos aquellos comentarios 
que el autor considere de interés. 

6- Todos los programas han de estar es- 
tructurados de modo claro, separan- 



do con PuEM los distintos apartados 
del mismo. 

PREMIOS 

7- 8UPER JUEGOS EXTRA MSX otorga- 
rá los siguientes premios: 

AL PROGRAMA EXTRA MSX DEL 
AÑO 

«EL LISTADO DE ORO» 
Una Unidad de disco 
valorada en más de 80.000 ptas. 

8- Los programas seleccionados por 
nuestro Departamento de Programa- 
ción y publicados en cada número de 
nuestra revista recibirán los si- 
guientes premios en metálico: 

Programa Educativo 10.000 pts. 
Programa de Gestión 10.000 pts. 
Programa de Entretenimiento 
6.000 pts. 

9- SUPER JUEGOS EXTRA MSX se re- 
serva el derecho de publicar fuera de 
concurso aquellos programas de re- 
ducidas dimensiones que sean de in- 
terés, premiando a sus autores. 

FALLO Y JURADO 

10- Nuestro Departamento de Progra- 



mación analizará todos los progra- 
mas recibidos y hará la primera se- 
lección, de la que saldrán los progra- 
mas que publiquemos en cada núme- 
ro de S J. EXTRA MSX. 

1 1- Los programas recibidos no se devol- 
verán, salvo que el autor lo requiera 
expresamente. 

12- La elección del PROGRAMA MSX EX- 
TRA DEL AÑO se hará por votación 
de nuestros lectores a través de un 
boletín que se publicará en el mes de 
octubre de 1986. 

13- El plazo de entrega de los programas 
finaliza el 14 de noviembre de 1986. 

13- El fallo se dará a conocer en el núme- 
ro del mes de enero de 1987, entre- 
gándose los premios el mismo mes. 



REMITIRA: 
CONCURSO EXTRA 
MSX 

Roca i Batlle, 10-12 
bajos 

08023 Barcelona 



ül1HE559 






NOMBRE DEL PROGRAMA .... 




CATEGORIA 

PARA K 

INSTRUCCION DE CARGA 




AUTOR: 
EDAD: 




N.° DE RECEPCION 


TEL.: 
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UNIDADES DE DISCO 






La rutina de grabación de un progra- 
ma nos resulta tediosamente familiar: 
Comprobar las conexiones del cassette, 
colocar la cinta, escribir cualquiera de 
las instrucciones de carga con las que 
vayamos a trabajar, pulsar PLAY + 
REC, validar la orden de carga pulsando 
RETURN y... dependiendo de la longi- 
tud del programa y el formato de graba- 
ción, podemos escoger entre fumar un 
pitillo, ir a dar una vuelta, tomar algo o 
quedarnos mirando a las musarañas 
hasta que los datos terminen de gra- 
barse. 

De todos modos, no tenemos por que 
conformarnos con toda esta rutina. Ac- 
tualmente, todos (o casi todos) los fabri- 
cantes de la norma han lanzado al mer- 
cado unidades de disco -herramientas 
de una utilidad incalculable- que pue- 



den convertir la larga y aburrida espera 
de la grabación/carga de los programas 
en escasos segundos de atención a la 
pantalla. 

Una ventaja adicional que proporcio- 
na el hecho de trabajar con disco, es la 
posibilidad de utilizar otros sistemas 
operativos como son el CP/M y el MSX- 
DOS, ambos adaptados al standard. 

Todas las unidades de disco, se co- 
nectan ai ordenador mediante un cartu- 
cho de interfaz que puede colocarse en 
cualquiera de las ranuras. Este cartu- 
cho, además de conectar la unidad al 
sistema lleva incorporado el sistema 
operativo de 0800, para lo cual es indis- 
pensable que la RAM del aparato sea de 
64K, bien porque el aparato sea de esas 
características o porque se haya expan- 
dido la RAM mediante un cartucho. En 



este último caso, debe tomarse buena 
nota de que si se desea conectar una 
unidad de disco a una consola de menos 
de 64K con un cartucho de expansión 
éste debe ser de 64K, puesto que si se 
utiliza uno de 16K aunque la RAM de 
usuario sea aparentemente la misma 
sólo se reservan 3K para el sistema ope- 
rativo. Si se utilizara un cartucho inade- 
cuado ni siquiera llegaría a inicializarse 
el sistema. 

Además de llevar la conexión para el 
ordenador, las unidades MSX llevan en 
su parte trasera un conector preparado 
para colocar una segunda unidad de 
disco en conexión serial con la primera. 

Tras esta breve introducción, pasa- 
mos a comentar 5 unidades de disco de 
5 compañías líderes en el standard: 
SONY, PHILIPS, TOSHIBA, CANON y 
MITSUBISHI. 
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Lo primero que constatamos en 
esta unidad de disco es su as- 
pecto sólido, por otra parte ya 
común a los aparatos de la marca 
Canon. Su diseño de estilo vertical 
es sencillo y dinámico y el usuario se 
siente muy cómodo con ella. En su 
parte posterior encontramos las co- 
nexiones de alimentación, de inter- 
face para ordenador y de extensión 
para otro disk drive. 

Su aspecto frontal da la idea de 
extrema funcionalidad con que han 
trabajado los diseñadores de este 
periférico. El botón de encendido se 
encuentra en la parte frontal y su co- 
lor es lo suficientemente claro como 
para que nadie se equivoque y para 
saber en todo momento si está en- 
cendida o no, cuenta con un led en- 
cima de este mismo botón, que se 
complementa con símbolos gráfi- 
cos. 

El pulsador de eyección es de 
buen tacto. Esta unidad de disco tra- 
baja con diskettes de 3,5 pulgadas, 
de doble densidad y doble cara con 
una capacidad de 1 megabyte no 
formateado y 737,7 K formateados. 

Conclusiones: 

bueno: Buen diseño y solidez, 
arada para aceptar una segun- 
nidad. Visualización clara de los 
los. Suministra disco con el sis- 
operativo MSX DOS. 
Lo malo: Es imprescindible co- 
nectar toma a tierra por su elevada 
electricidad estática. 




FICHA TECNICA 

Consumo de corriente: 16 W. 
Fuente de alimentación propia. 

Capacidad de disco: 1.0 M. byte 
no formateado y 737,3 Kb. forma- 
teado (9 sectores/ pista) 

Tipo: 3,5" de doble cara y doble 
densidad. 
Peso: 2,7 kg. 

Dimensiones: 136 x 109 x 21,8. 





Cartucho interface por dentro 



Unidad de disco VF-100 Canon 




VT-100 CANON. SOLIDA Y POTENTE 
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La velocidad de la unidad de disco 
VY0010 proporciona -además de 
un rápido acceso, un sistema de 
almacenaje de datos y programas de 
gran capacidad así como un medio muy 
rápido y adecuado para el intercambio 
de estos. 

Esta unidad es de formato vertical, 
gran estabilidad y atractivo diseño. Ac- 
tualmente existe una gran cantidad de 
software disponible en diskette (softwa- 
re editado anteriormente en otros sopor- 
tes como cartucho ROM o incluso cinta), 
pero además de esto existe un software 
editado exclusivamente en disco debido 
a su gran capacidad de almacenaje. 

El paquete de entrega de la unidad de 
disco VY 001 incluye además de la uni- 
dad de disco con su propia fuente de ali- 
mentación el cartucho de interfaz, cable 
con conectores, un diskette virgen y un 
manual de instalación. 

La unidad VY0010 está diseñada 
como primera unidad para conexión di- 
recta mediante el interfaz que se inserta 
en cualquiera de las ranuras de cartu- 
cho. Existe una segunda unidad como 
habrán observado nuestros sagaces 
lectores. Se trata de la VY001 1 , diseña- 
da especialmente como segunda uni- 
dad que se conecta a la principal 
VY0010 en una configuración denomi- 
nada «de cadena daisy». 

La operación de la unidad de disco 
como primera o segunda es selecciona- 
ble mediante un interruptor situado en el 
panel posterior. Esta segunda unidad se 
suministra tan sólo con un cable para 
efectuar la conexión a la VY0010 y el 
manual de instalación. 

Tanto una como otra, utilizan los dis- 
kettes de 3'5" de simple cara, quedando 
por lo tanto una capacidad una vez for- 
mateados de 360Kb por diskette. 

La velocidad de transferencia de los 
datos es de 250 Kb/seg. 

Lo bueno: Cómoda de manejo. Dise- 
ño acertado. Suministra diskette virgen. 

Lo malo: Tan sólo facilita manual de 
instalación. No incluye disco con MSX- 
DOS. 

, , 



FICHA TECNICA 

Consumo energético: 25W 
Diskettes: de 3' 5" 

Tipo: doble densidad. Simple cara 

Capacidad: 

500 Kb (360 formateado) 

Densidad de registro: 8187 bpi 
Velocidad de transferencia: 
250 Kb/seg. 
Tiempo de acceso: 
Medio: 350 mseg 
Entre pistas: 12 mseg 
Alimentación 220 V CA, 50 Hz 
Dimensiones: 420x283x85 mm 
Peso: 3'8 Kg. 





ÜOODOL 

En el KUNG-FU 1, el maestro Lee aniquiló a toda la banda de Chop Suey. 
El malvado Yen Pey ha sido el único superviviente. 
¡¡AQUI TIENES LA REVANCHA!! 



CARTUCHO - 5.200 ptas.~~^ 




SERNR 



1Ó2 JUGADORES 
- CICLISMO 
- TRIPLE SALTO 
- DESLIZAMIENTO 
- SALTO CON PERTIGA 



RECORTA Y ENVIA ESTE CUPON A 4" SERMA C/. BRAVO MURILLO, N.° 377, 3 ° A - 28020 MADRID - TELEFONOS: 733 73 1 1 - 733 74 64 
CANTIDAD 



NOMBRE Y APELLIDOS: 

DIRECCION: 

POBLACION: 



JDODIGO POSTAL. 
PROVINCIA 



FORMA DE PAGO: 



. ENVIO TALON BANCARIO □ CONTRA REEMBOLSO □ 




s 































DISK DRIVE SONY HBD-50 



La HBD-50 de SONY es una unidad 
de formato horizontal (a primera 
vista parece un auto radio) utiliza 
microdiscos flexibles de 3 1 12" de simple 
cara, con una capacidad de 500 Kb que 
se reducen a 360 una vez formateados. 

Una vez conectada la unidad de disco 
al ordenador, ya podemos conectar la 
alimentación tanto de la unidad como 
del ordenador. Tras esto, aparecerá en 
pantalla el mensaje: 

Enter Date (D-M-Y): 
Tras pulsar RETURN, iremos a la 
la principal y ¡Oh sorpresa! vere- 
e bajo la leyenda habitual apare- 
s líneas indicando que estamos 
trabajando en MSX-DISK BASIC ver- 
sión 1 .0 

Si nos fijamos en la parte donde se 
nos indica la memoria disponible, vere- 
mos que esta es de 23430 bytes libres, 
pues los aproximadamente 5K restan- 
tes son ocupados para la gestión del dis- 




El MSX-DISK BASIC es todo el len- 
guaje BASIC que incluye todos los man- 
datos y funciones que necesitamos para 
grabar o cargar los datos de la memoria 
del ordenador en un disco y viceversa. 

La velocidad de transmisión de los da- 
tos en esta unidad de disco es de 250 Kb 
por segundo pudiendo trabajar con fi- 
cheros secuenciales y/o aleatorios. 

Al ser una unidad de tipo horizontal; el 
centro de gravedad es bajo, no teniendo 
ningún problema de estabilidad. Con la 
unidad se suministra un cartucho de in- 
terfaz además de un excelentemente 
confeccionado manual de introducción 
al MSX-DISK BASIC. 

Lo bueno: Manejable. Estable. Có- 
moda de manejar. Completo manual de 
introducción al MSX-DISK BASIC. Se 
suministra un diskette virgen. 

Lo malo: No suministra diskette con 



FICHA TECNICA 

Consumo energético: 24W 
Diskettes: de 3'5" 

Tipo: Densidad doble. Simple cara 

Capacidad: 

500 Kb (360 formateado) 
Bytes/sector: 512 
Sectores/pista: 9 
Pistas/cilindro: 1 
Pistas/microdisco: 80 
Densidad de registro: 
8187 bits/pulgada 
Velocidad de transferencia: 
250 Kb/segundo 
Tiempo de acceso: 
Medio: 350 mseg 
Entre pistas: 12 mseg 
Alimentación 220 V CA, 50 Hz 
Dimensiones: 160x67x260 mm 
Peso: 2'7 Kg. 



HX-F101, EL «FLOPPY» DE TOSHIBA 




Nos encontramos ante una unidad 
de discos del tipo vertical. Esto 
no es, ni mucho menos, exclusi- 
vo de TOSHIBA, puesto que otros flop- 
pys MSX también adoptan esta configu- 
ión. No obstante, ésta es bastante 
echa, lo que da, al desembalarla, 
na sensación de inestabilidad. De cual- 
quier forma, rápidamente se constata 
que la mayor parte del peso, unos 2,8 
kg, se encuentra situado en la base, lo 
que hace que el centro de gravedad esté 
muy bajo y la inestabilidad sobre la 
mesa de trabajo sea perfecta, ahorran- 
do, por lo demás, un espacio que las uni- 
dades horizontales no permiten. 

El interruptor de encendido se en- 
cuentra en la parte trasera, lo que agra- 
decerán los usuarios. Hay que tener 
presente que desconectar accidental- 
mente la alimentación, cuando en el in- 
terior hay un floppy, puede llevar a que 
la información contenida en éste se de- 
teriore, y recuperar datos dañados de un 
disco no es como hacerlo de una casset- 
te. 

El pulsador de extracción es de los 
que ofrece un buen tacto. Asimismo, el 
led rojo de «in use» se ve perfectamen- 
te, no como en otras unidades, en las 
que es dificilísimo saber si el modesto 
led verde está o no encendido. 

CONCLUSIONES 

Lo bueno: El ahorro de espacio y la 
estabilidad. Pulsador de extracción có- 
modo. Interruptor de alimentación bien 
situado. Led de indicador de funciona- 
miento fiable. 



Lo malo: Manual en Inglés. No se su 
istra el disco con el sistema operati 
MSX-DOS. 





FICHA TECNICA 

Consumo de corriente (fuente de 
alimentación propia): 150 mA. 

Capacidad de los discos: 360K 
formateado. 

Tipo: simple cara doble densi- 
dad (1DD). 

Velocidad de transferencia: 31,2 
Kbytes por segundo. 

Tiempo de acceso: 350 msec. 

Alimentación: 220V AC. 

Consumo de potencia: 13W 

Peso: 2,8 K. 

Dimensiones: 67mm (anchura) x 
125 mm (altura) x 270 (longitud) 



22 





4 




UNIDAD DE DISCO MITSUBISHI ML-30PD 



sta unidad de disco presenta una 
serie de diferencias con respecto 
L_ a las otras de la norma que mere- 
cen especial atención por parte de los 
usuarios. 

En primer lugar, externamente se 
puede observar que la unidad -de atrac- 
tivo diseño- además de llevar la ranura 
habitual para la inserción del disco, lleva 
una ranura adicional preparada para la 
colocación (de una manera muy sencilla 
y muy barata) de la mecánica de una se- 
gunda unidad. 

Así pues, esta unidad de disco de tipo 
vertical ya nos anticipa externamente 
que no se trata de una más. 

La unidad de disco ML-30FD utiliza 
discos de 3,5" grabando simultánea- 
mente por las dos caras, doblando por 
tanto la capacidad de otras marcas. 
Esto nos da una capacidad total de 1 Mb 
sin formatear, es decir de 720 Kb, forma- 
teado. 



Esta unidad permite además trabajar 
con 8 formatos diferentes de grabación. 
Por si esto fuera poco, Mitsubishi habla 
de la compatibilidad entre el formato de 
grabación del sistema operativo MS- 
DOS del IBM PC y el MSX-DOS, cosa 

3ue aunque no hayamos tenido ocasión 
e comprobar estamos seguros de que 
es perfectamente posible. 



CONCLUSIONES 

Lo bueno: Preparada para albergar 
la mecánica de una segunda unidad, 
ofreciendo en este caso al usuario una 
configuración total de 2Mb (1400Kb for- 
mateados). Controlador preparado para 
la conexión de 4 unidades. Trabaja con 
diskettes de doble cara. Atractivo diseño 
y comodidad de manejo. 8 formatos di- 
ferentes de grabación. 



Lo malo: No suministra disco con el 
sistema operativo MSX-DOS. 



FICHA TECNICA 

Consumo de energía: 16W. 

Capacidad del disco: 720 Kb for- 
mateado. 

Tipo: Discos de 3,5" de uno o do- 
ble lado standard 

Velocidad de transferencia: 250 
Kb por segundo. 

Tiempo de acceso pista a pista: 1 2 
msec. 

Tiempo de acceso promedio: 331 
msec. (incluyendo anillo de bús- 
queda y fijo) 

Peso: 2,5 Kg. 

Dimensiones: 86 x 270 x 166 mm. 



— 
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mos conjuntamente dos programas del 
que tales programas son complementarios. 

día. Con este listado los lectores pueden llev 

isajes enviados y recibido 

Este programa te permite la transmisión 
, los to 




DEGÜABDIA 




M. A. Sirgo Ortea para M S X 
Libro de guardia 
INICIALIZAR 
40 CLEAR 4000 
50 CLS: J=--0:Q1=31:KEY OFF 
60 DIM KL*<250) , DT*<250> ,UT*<250) , F 
Q* ( 250 ) 

70 DIM MD*<250> ,PR*(250> ,RS*<250) ,R 
R*(250> 

80 DIM UE*(250) ,05$ (250) ,QR*<250) ,C 
M*(250) 
90 BL*=" ! " 
100 El*=" MUY LARGO. " 
110 E2*=" CARACTERES MAX." 
120 LOCATE 8, 5: PRINT"* LIBRO DE GUA 
RDIA *" 

130 PRINT TAB (8) " * LIBRO DE GUARDIA 
*" 

140 PRINT TAB (8) " * LIBRO DE GUARDIA 
*" 

150 LOCATE 2, 20: PRINT "DESEA INICIAL 
IZAR UN FICHERO <S/N>?" 
160 A*=INPUT*<1) : IF A*="S" THEN 180 
170 IF A$="N" THEN 460 ELSE 160 
180 ' INICIALIZAR FICHERO 
190 CLS:PRINT:PRINTTAB(5) "INICIALIZ 
AR FICHERO ":PRINT 
200 GOSUB 900:IN*=KX* 
210 GOSUB 940 

220 INPUT"NUMERO DE REGISTRO" ; NR: ZZ 
= 1 

230 ' CARATULA 

240 CLS: LOCATE 8, 5: PRINT" LIBRO DE G 
UARDIA DE: " ; IN* 
250 TT=LEN ( IN$) : L0CATE28, 6 
260 FOR F=l TO TT: PRINT"— ';: NEXT F 
270 PRINT: PRINT: PRINT TAB (2) "REGIS 
TRO NUMERO ";NR: PRINT 

280 IF ZZOl THEN 290 ELSE PRINTTAB 




(2) "CREADO EL :";DA*:GOTO 320 
290 PRINTTAB (2) "CREADO EL:"jDT$(l) 
PRINT: PRINT TAB (2) "ENTRADAS -" 



310 
ADA: 

320 



PRINT: PRINT TAB (2) "ULTIMA ENTR 
DT$ (J) 

LOCATE 5, 20: PRINT "PULSE UNA TEC 
LA PARA CONTINUAR" 
330 A*= I NPUT$ ( 1 ) : I F A*< > 

ELSE 330 
340 ' MENU PRINCIPAL 
350 CLS: LOCATE 5, 2: PRINT "PULSE 
RO DE OPCION: " 
360 PRINT: PRINT: PRINT TAB (5) "1.- R 
EGISTRAR NUEVO OSO.": PRINT 



THEN 340 



NUME 



"2.- MODIFICAR REG 



BUSQUEDA DE U 



370 PRINT TAB (5) 
ISTRO. ": PRINT 
380 PRINT TAB (5) "3.- 
N INDICATIVO. ":PRINT 

390 PRINT TAB (5) "4.- LISTADO DE DA 
TOS. ": PRINT 

400 PRINT TAB (5) "5.- IMPRIMIR 5 UL 
TIMOS QSO. ": PRINT 

410 PRINT TAB (5) "6.- SALIDA DE DAT 

OS A CASETTE. " 

420 A*=INPUT*(1) : AO=VAL(A*) 

430 IF A0<1 OR A0>6 THEN 420 

440 ON AO GOSUB 630,1220,2650,1690, 

2430,2510 

450 GOTO 340 

460 'ENTRADA DATOS CASETTE 
470 CLS:M=0 
480 PRINT" 
TOS Y PULSE" 
490 PRINT" << 
EL CASETTE": PRINT 
500 I NPUT " L I STO " ; NO* 
510 PRINT: PRINT"LEYENDO. . . 
N 



COLOQUE LA CINTA DE DA 
PRINT 

ENTER >> CUANDO TENGA 



": MOTOR O 




OOrtr.OQi~i.OC 



520 OPEN"CAS:QSL" FÜR INPUT ASI 

530 INPUTttl, J: INPUT#1, IN*: INPUT#1,N 

R 

540 IF EOF (1) THEN 610 
550 M=M+1 

560 INPUT#1,KL*(M) : INPUT#1 , DT* (M) : I 
NPUT#1,UT*(M> 

570 INPUT#1,FQ*(M) : I NPUT# 1 , MD* ( M ) : I 
NPUT#1,PR*(M> 

580 I NPUT# 1 i RS* (M) *I NPUT# 1 , RR* ( M ) : I 
NPUT#1,UE*(M) 

590 I NPUTtt 1 , QS* ( m t 1 NPUT# 1 , QR* < M ) : I 

NPUT#1,CM*(M> 

600 GOTO 540 

610 CLOSE: MOTOR OFF 

620 GOTO 230 

630 ' REGISTRO NUEVO OSO 

640 J=J+l:CLS 

650 GOSUB 900: KL* (J)=KX* 

660 GOSUB 940:DT*(J)=DA* 

670 PRINT"Cual es 1 a hora de comien 

zo";: GOSUB 1060: UT* < J ) =U* 

680 INPUT"Cual es la f recuenci a?" ; F 

Q*( J) 

690 IF LEN(FQ*(J) ) >8 THEN PRINTBL*; 
El*; 8; E2*: GOTO 680 

700 INPUT "Cual es el modo?" ; MD* ( J ) 
710 IF LEN (MD* ( J ) ) >3 THEN PRINTBL*; 
El*; 3; E2*: GOTO 700 

720 INPUT"Cual es 1 a potenci a?" ; PR* 
<J> 

730 IF LEN(PR*(J) ) >4 THEN PRINTBL*; 
E1*;4;E2*:G0T0 720 

740 INPUT "Cual es su RST?";RS*(J) 
750 IF LEN(RS*(J) ) >3 THEN PRINTBL*; 
El*; 3; E2*: GOTO 740 

760 INPUT"Cual es mi RST?";RR*(J) 
770 IF LEN <RR* ( J ) ) >3 THEN PRINTBL*; 
E1*;3;E2*:G0T0 760 

780 PRINT"Cual es la hora de final 
QSO?" ; : GOSUB 1060: UE* ( J ) =U* 
790 INPUT"Enviare QSL (E)?";QS*(J) 
800 IF LEN(QS*(J) ) >1 THEN PRINTBL*; 
El*; 1;E2*:G0T0 790 

810 PRI NT "Entra un comentar i o ("; Cl ; 
"caracteres max ) " ; 
820 INPUT CM*(J) 
830 IF LEN(CM*(J) ) >Cl 
;LEN(CM*)-C1; "Demasiai 
.Repite" : GOTO 820 
840 LOCATE 1 , 20 : PR I NT " SErSALE 

850 PRINT"1.- NUEVO QSO - 
U" 



THEN PRINTBL* 
los caracteres 



III 



THEN 
THEN 



630 

RETURN 



INDICATIVO 
Indicativo 



del corres, 



860 A*=INPUT*(1) 
870 IF A*="l" 
880 IF A*="2" 
890 GOTO 860 
900 ' ENTRADA 
910 CLS: INPUT 1 
ponsal?" ; KX* 

920 IF LEN(KX*)>10 THEN PPINTBL*;E1 

*; 10 ; E2* : GOTO 900 

930 RETURN 

940 ' ENTRADA FECHA 

950 INPUT "Cual es 1 a -fecha (DD/MM/AA 
)?";DA* 

960 IF LEN(DA*)<6 THEN 1050 

IF MID*(DA*,3, 1)-"/" THEN 1000 
I F MI D* ( DA* , 2 , 1 )< > " / " THEN 1 050 
DA*="0"+DA* 
IF MID*(DA* ! , 6, 1) ="/" THEN 1030 
IF MID*(DA*,5, 1)<>"/" THEN 105 



970 
980 
990 



DA*=LEFT* ( DA* 9 ■ S) +"W " +R I GHT* ( DA 

THEN 



IF LEN(DA*)<>8 
RETURN 

PRINTBL*; "ERROR. REPITE. " : GOTO 




1010 



1020 
*,4) 
1030 
1040 
1050 
940 

1060 ? ENTRADA HORA 

1070 INPUT" (HHMM)?";U* 

1080 IF LEN<U*)>4 THEN PRINTBL*; El* 

; 4; E2*; "Repite": GOTO 1060 

1090 IF IJ*="" THEN RETURN 

1100 IF LEN ( U* > < 4 THEN FORH=LEN (U*) + 

1 TO 4: U*="0"+U*: NEXT H 

1110 RETURN 

1120 * PRESENTACION CABECERA 

1130 CLS: PRI NT" N° INDICATIVO HÜR 

A POT. RST QSL" 

1140 PRI NT" QSL FECHA FREC. M 

ODO (S/M) E/R" 

1150 PRI NT" 

1160 RETURN 

1170 ' ESCRIBIR QSÜ 

1180 PRI NT F; TAB (6) KL* (F) ; TAB ( 17) 
UT*(F) ;TAB(24)PR*(F) ; TAB (30) RS*(F) 
; TAB (35) QS*(F) 

1190 PR I NTT AB ( 6 ) DT* ( F ) ; TAB ( 1 7 ) FQ* ( F 
) ;TAB(24)MD*(F) ; TAB (30) RR* (F) ;TAB(3 
5)QR*(F) 

1200 PRI NTT AB ( 6 ) "*. ";CM*(F> 
PRI NT: RETURN 

: ' EDITAR UN REGISTRO A MODIFICA 
CLS: A*="" 





1240 PPI NT "ENTRA 
TRO A EDITAR O" 
1250 INPUT "DA << ENTER 
AR EL ULTIMO. " ; A* 
1260 IF A*="" THEN F=J : GOTO 
F=VAL<A*) 

IF F>J OR F<1 THEN 1220 
GOSUB 1120: GOSUB 1170 



PARA EDIT 



1270 
1 280 
1 290 
1 300 
1310 
1 320 
1330 
1340 
1350 
ERVAR 



PRI NT "DESEA CORREGIRLO <S/N>?" 

A*= INPUT* ( 1 ) 

IF A*="S" THEN 1350 

IF A*="N" THEN 340 

GOTO 1310 

PRI NT "DA « ENTER >> PARA CONS 
LA INFOR-MACION"; 

O UN NUEVO VALOR PARA C 



;DT*<F) ; : INPUT DA 
GOSUB 960:DT*<F)= 

COMIENZO: ";UT*(F 
"* THEN GOSUB 10 



1360 PRI NT" 
AMB I ARLO. " 
1370 PRI NT "FECHA: 
*: IF DA*<>"" THEN 
DA* 

1380 PRI NT "HORA DE 
) ; : INPUT U*: IF U*< 
80: UT* <F) =U* 

1 390 PR I NT " FRECUENC I A: " ; FQ* ( F ) ; : I NP 

UT A*:IF A*="" THEN 1420 

1400 IF LEN(A*)>8 THEN PRI NT BL*;E1 

*;8;E2*:G0T0 1390 

1410 FQ*(F)=A* 

1420 PR I NT " MODO : " ; MD* ( F ) ; : I NPUT A*: 
IF A*="" THEN 1450 

1430 IF LENCA*) >3 THEN PRINT BL*;E1 
*;3;E2*:G0T0 1420 
1440 MD*(F)=A* 

1450 PRINT "POTENCIA: ";PR*<F) ; : INPUT 

A*:IF A*=" " THEN 1480 
1460 IF LEN<A*)>4 THEN PRINT BL*;E1 
*;4;E2*:G0T0 1450 
1470 PR*(F)=A* 

1480 PRINT"SU RST: ";RS*(F) ;: INPUT A 
*: IF A*="" THEN 1510 

1490 IF LEN<A*)>3 THEN PRINT El*;3; 
E2*:G0T0 1480 
1500 RS*(F)=A* 

1510 PRINT"MI RST: ";RR*<F> ;: INPUT A 
*: IF A*="" THEN 1540 

1520 IF LEN(A*>>3 THEN PRINT El*: 3; 
E2*:G0T0 1510 
1530 RR*(F)=A* 

1540 PRI NT "HORA FINAL DEL QSO ( QRT) 
: ";UE* (F) ;: INPUT U*: IF U*<>"" THEN 
GOSUB 1080:UE*(F)=U* 

1550 PR I NT " ENV I ADA QSL (E):";QS*(F) 
;: INPUT A*: IF A*="" THEN 1580 
.560 IF LEN (A*)<>1 THEN PRINT BL*; 



. 



QSL (R) : " : QR* ( F 

THEN 1610 
THEN PRINT BL* ; 



El*; 1;E2*:G0T0 1550 
1570 QS*(F)=A* 
1580 PRI NT "RECIBI DA 
) ; : INPUT A*: IF A*=" 
1590 IF LEN (A*) OI 
El*; 1 ;E2*: GOTO 1580 
1600 QR*(F)=A* 

1610 PRINT"COM. ";CM*(F) ; : INPUT". . . 1 

";A*:IF A*="" THEN 1640 

1620 IF LEN(CM*)>C1 THEN PRINT BL*; 

E1*;C1;E2*:G0T0 1610 

1630 CM*(F)=A* 

PRI NT "CORRECTO 
A*=INKEY* 
IF A*="N" THEN 
IF A*="S" THEN 
GOTO 1650 
' MENU LISTADO 
CLS: LOCATE 3,3 
E DATOS POR ..." 

1710 PR I NT : PR I NTTAB ( 5 ) " 1 . -- INDICATI 
VO. " 

1720 PRINT: PRINTTAB (5) "2. 
1730 PRINT: PRINTTAB (5) "3. 
IA. " 

1740 PRINT: PRINTTAB (5) "4.- PREFIJO. 



1640 
1 650 
1 660 
1670 
1680 
1690 
1 700 



(S/N)?" 

1 290 
RETURN 

DE DATOS 

PRI NT "LISTADO 



D 



MODO. " 
FRECUENC 



FECHA. " 
QSL'S Nü 

TODOS LO 



LOCATE 5,20:PRINT"PULSE NUMERO 
DPCION" 



1750 PRINT: PRINTTAB (5) "5. 
1760 PRINT: PRINTTAB (5) "6. 

RECIBIDAS. " 
1770 PRINT: PRINTTAB (5) "7. 
S QSO 
1780 

DE OF 

1790 A*=INPUT* < 1 ) : AO=VAL (A*) 
1800 IF A0<1 OR A0>7 THEN 1790 
1810 ON AO GOTO 1820,1880,2120, 
,2020, 1960,2220 
1820 -LISTADO POR INDICATIVO 
1830 CLS: GOSUB 900: GOSUB 1120 
FOR F=l TO J 

IF KL*(F)=KX* THEN GOSUB 1 
NEXT F 
GOTO 2350 
'LISTADO POR MODO 
CLS: INPUT "CUAL ES EL 
IF LEN(M*)>3 THEN PRINTBL*; El * 



280 



1840 
1 850 
1 860 
1870 
1 880 
1890 
1900 

;3;E2*:G0T0 1890 
1910 GOSUB 1120 
1920 FOR F=l TO J 
1930 IF MD*(F)=M* 
1940 NEXT F 
1950 GOTO 2350 
1960 ! LISTADO POR 



MODO" ;M* 



THEN GOSUB 1170 



QSL'S NO RECIBIDA 




i DOO.C OQi~!QC 



s 

1970 GQSUB 1120 
1980 FOR F=l TO J 

1990 IF QR*(F)<>"R" THEN GOSUB 1170 
2000 NEXT F 
2010 GÜTÜ 2350 
2020 ' LISTADO PÜR FECHAS 
2030 CLB: INPUT" FECHA INICIAL (DD/MM/ 
AA) " ; DA*: GOSUB 960: SD*=MID* (DA*, 7, 2 
) +MID*(DA* ? 4, 2) +MID*<DA*, 1,2) 
2040 INPUT"FECHA FINAL (DD/MM/AA) "; D 
A$: GÜBUB 960: ED*=MID* (DA*, 7, 2) +MID* 
(DA*,4,2)+MID*(DA*, 1,2) 
2050 IF 3D*>ED* THEN PRINTBL*; "ERRO 
R":GÜTÜ 2030 
2060 GOSUB 1120 
2070 FOR F=l TO J 

2080 PT*=M I D* ( DT* (F) ,7,2) *M I D* ( DT* ( 

F) ,4,2)+MID*(DT*(F) ,1,2) 

2090 IF PT*>=SD* AND PT*<=ED* THEN 

GOSUB 1170 

2100 NEXT F 

2110 GOTO 2350 

2120 * LISTADO POR FRECUENCIAS 

2130 CLS: INPUT "CUAL ES LA FREC. MEN 

□R" ; LF 

2140 CLS: INPUT "CUAL ES LA FREC. MAY 
OR";UF 

2150 IF UF<LF THEN PRINTBL*; "ERROR" 
:GOTO 2130 
2160 GOSUB 1120 
2170 FOR F=l TO J 
2180 FE=VAL(FQ*(F) ) 

2190 IF FE>=LF THEN IF FE< ~UF THEN 
GOSUB 1170 
2200 NEXT F 
2210 GOTO 2350 

'LISTADO DE TODOS LOS OSO 
GOSUB 1120 

J 



2220 
2230 

2240 FOR F=l TO 
2250 GOSUB 1170 
2260 NEXT F 
2270 GOTO 2350 
2280 'LISTADO POR PREFIJO 
2290 CLS: PRI NT "CU AL ES EL PREFIJO ( 
2 LETRAS) " 
2300 T*=INPUT*(2) 
2310 GOSUB 1120 
2320 FOR F=l TO J 

2330 IF MID*(KL*(F) , 1,2>=T* THEN Gü 

SUB 1170 

2340 NEXT F 

2350 'OPCION LISTADO 

2360 PRI NT: PRI NT: PRI NT 



LOCATE 1 , 20: PRI NT" SECALE OPCIO 



2380 PRI NT "i.- LISTADO DE DATOS - 

2.- MENU" 
2390 A*=INPUT*<1) 
2400 IF A*="l" THEN 1690 
2410 IF A*="2" THEN RE" 
2420 GOTO 2390 
2430 " 5 ULTIMOS QSO 
2440 GOSUB 1120: 
2450 FOR F-J-4 TO J 
2460 GOSUB 1170 
2470 NEXT F 

2480 PR I NT : PR I NT : PR I NT 

2490 LOCATE 5, 20: PRI NT "PULSE UNA TE 
CLA PARA CONTINUAR" 

2500 A*=INPUT*<1) : IF A*<>"" THEN 34 
ELSE 2500 
2510 'GRABANDO 

2520 CLS: PRI NT TAB (8) " - GRABAR EN C 
ASETTE -":PRINT:PRINT 

2530 PRI NT "PULSE <<ENTER>> CUANDO T 

ENGA EL CASETTE" 

2540 INPUT"LI3T0";N0* 

2550 PRI NT: PRI NT "GRABANDO. . . " : MOTOR 
ON 

2560 OPEN"CAS:QSL" FOR OUTPUT ASI 
2570 PR I NT# 1 , J : PR I NT# 1 , I N$ : PR I NT* 1 , 
NR 

2580 FOR M=l TO J 

2590 PRINTttl , KL* (M) : PRINTttl , DT* (M) : 
PRINT#1 , UT* (M). 

2600 PRINT#1,FQ*(M) : PRINTttl , MD* (M) : 
PRINTttl, PR*(M) 

2610 PRINTttl, RS*(M) : PRINTttl , RR* (M) : 
PRINTttl , UE$ (M) 

2620 PRINTttl, QS*(M) : PRINTttl , QR* < M) : 
PRINTttl , CM* (M) 
2630 NEXT M 

2640 CLOSE: MOTOR OFF : RETURN 
2650 'BUSQUEDA UN INDICATIVO 
2660 GOSUB 900: GOSUB 1120 
2670 FOR F=l TO J 

2680 IF KX*=KL*(F) THEN GOSUB 1170: 
GOTO 2700 
26 



2700 
N: " 
2710 
O. - 
2720 
2730 
2740 
2750 



XT F 

LOCATE 5,20:PRINT"SE¡nALE OPCIO 



PRINT"1. BUSCAR OTRO INDICATIV 

2. MENU" 

A$=INPUT*<1) 

IF A$-"l" THEN 2650 

IF A*="2" THEN RETURN 

GOTO 2720 




I KU 




TEST DE LISTADO ===== 

Para utilizar el Test de Listados que ofrecemos al final de cada programa, recordamos que previamente hay 
que cargar en el ordenador el Programa correspondiente aparecido en nuestro número 1 0, de octubre , pág. 29. 
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970 
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~ 58 
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- 58 
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- 5 
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-191 
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- 97 


1090 


-159 


1 490 


-156 


1890 


-203 


2290 


- 89 


2690 


-201 


300 


-187 


700 


-112 


1 100 


- 79 


1500 


- 1 80 


1900 


- 49 


2300 


-116 


2700 


- 93 


310 


- 78 


710 


- 1 1 


1110 


-142 


1510 


-230 


1910 


-255 


23 1 


-255 


2710 


- 18 


320 


-249 


720 


- 33 


1120 


- 58 

- 18 


1 520 


-186 


1920 


-236 




-236 


2720 


- 96 


330 


- 29 


730 


- 1 40 


1130 


1 530 


-179 


1 930 


- 66 




-159 


2730 


- 1 60 


340 


- 58 


740 


— 229 


1 1 40 


-127 


1 540 


-190 


1940 


-20 1 


2340 


-201 


2740 


-189 


350 


-255 


750 


-161 


1 150 


- 27 


1 550 




1950 


-206 


2350 


- 58 


2750 


- 65 


360 


- 61 


760 


-210 


1 1 60 


-142 


1560 


-188 


1960 


- 58 


2360 


- 39 






-114 


770 


- 1 80 


1 170 


- 58 


1570 


-179 


1970 


-255 


2370 


- 89 






380 


-230 


780 


-225 


1180 


-161 


1580 


- 98 


1 980 


-236 


2380 


-100 






390 


-139 


790 


-246 


1190 


-252 


1590 


-218 


1 990 


- 1 04 


2390 


- 96 


TOTAL: 


| 400 


- 54 


800 


-207 


1200 


-206 


1600 


-178 


2000 


-201 


2400 


-220 


38064 



TRANSMISIC 



P0RmMA 



FERNANDEZ MADERO 



5 KEY OFF: COLOR 2, 1,1:CLS 
10 SCREEN0:WIDTH32 

20 PRINT" PROGRAMA TRANSMISION MO 
RSE 

22 PRINT: PRINT: PRINT: PRINT: PRINT 
25 INPUT"PAUSA DE TRANSMISION (1 A 
5) ";B* 

' 



27 IF B*>"5" THEN 25 
30 PRINT: INPUT "TONO DE TRANSMISION 

(1 A 5) ";C* 
32 IF C*>"5" THEN 30 
35 PRINT: INPUT "LONGITUD DEL PUNTO 
< 1 A 5) " ¡ D$ 
37 IF D*>"5" THEN 35 



w W W 



40 PRINT: INPUT 
(5 A 9) ";E* 



"LONGITUD DE LA RAYA 



42 I 


F E*<"5" 


OR E*. 


"9" THEN 40 


1 00 


IF 


B$=" 1 " 


THEN 


M=10 


110 


IF 


B$="2" 


THEN 


M=20 


120 


IF 


B*="3" 


THEN 


M=40 


130 


IF 


B*="4" 


THEN 


M=S0 


140 


IF 


B*="5" 


THEN 


M=160 


150 


IF 


C*="l " 


THEN 


Y=3 


160 


IF 


C$="2" 


THEN 


Y=4 


170 


IF 


C*="3" 


THEN 


Y=5 


180 


IF 


C*="4" 


THEN 


Y=6 


190 


IF 


C*="5" 


THEN 


Y=7 


200 


IF 


D*=" 1" 


THEN 


X=10 


210 


IF 


D*="2" 


THEN 


X=9 


220 


IF 


D*="3" 


THEN 


X=8 




IF 


D*="4" 


THEN 


X=7 


240 


IF 


D$="5" 


THEN 


X=6 


250 


IF 


E*="5" 


THEN 


W=5 


260 


IF 


E*="6" 


THEN 


W=4 


270 


IF 


E*="7" 


THEN 


W=3 


280 


IF 


E*="8" 


THEN 


W=2 


290 


IF 


E*="9" 


THEN 


W=l 


295 


PLAY"o=y; 


":PLAY"V15" 


298 


CLS 






299 


LOCATE 0, 


21:PRINT"Para salir de 



THEN GOSUB 
12000: GOSUB 




1 programa pulsa 0":FOR 1=1 TO 800: 
NEXT:CLS 

300 X*=INK.EY*: PRINT X* 
360 IF X*="0" THEN CLS: END 
410 IF X*="A" OR X*="a" THEN GOSUB 
12000: GOSUB 11000 
420 IF X*="b" OR X*="B" 
11000: GOSUB 12000: GOSUB 
12000 

430 IF X*="c" OR X$="C" 
11000: GOSUB 12000: GOSUB 
12000 

440 IF X*="d" OR X*="D" 
1 1 000 : GOSUB 1 2000 : GOSUB 
450 IF X*="e" OR X*="E" 
12000 

460 IF X*="f" OR X$="F" 
1 2000 : GOSUB 12000 : GOSUB 
12000 

470 IF X*="g" OR X*="G n 
1 1 000 : GOSUB 1 1 000 : GOSUB 
480 IF X*="h" OR X$="H" 
1 2000 : GOSUB 1 2000 : GOSUB 
12000 

490 IF X*="i" OR X*="I" 
1 2000 : GOSUB 1 2000 
500 IF X*="j" OR X*="J" 
1 2000 : GOSUB 1 1 000 : GOSUB 
11000 



510 IF X*="k" OR X*="K" THEN GOSUB 
11000: GOSUB 12000: GOSUB 11000 
520 IF X*="l"' OR X*="L" THEN GOSUB 
1 2000 : GOSUB 1 1 000 : GOSUB 1 2000 : GOSUB 
12000 

530 IF X*="m" OR X$="M" 
11000: GOSUB 11000 
540 IF X*="n" OR X*="N" 
11000: GOSUB 12000 
550 IF X*="o" OR X*="0" 
1 1 000 : GOSUB 1 1 000 : GOSUB 
560 IF X*="p" OR X*="P" 
1 2000 : GOSUB 1 1 000 : GOSUB 
12000 

570 IF X*="q" OR X*="Q" 
11000: GOSUB 11000: GOSUB 



: GOSUB 



THEN GOSUB 
12000 

THEN GOSUB 

THEN GOSUB 
11000: GOSUB 

THEN GOSUB 
1 2000 

THEN GOSUB 
12000: GOSUB 

THEN GOSUB 

THEN GOSUB 
1 1000: GOSUB 



THEN GOSUB 

THEN GOSUB 

THEN GOSUB 
1 1 000 

THEN GOSUB 
11000: GOSUB 

THEN GOSUB 
12000: GOSUB 



11000 
580 IF X*="r" 



OR X*="R" 
1 2000 : GOSUB 1 1 000 : GOSUB 
590 IF X*="s" OR X*="S" 
1 2000 : GOSUB 1 2000 : GOSUB 
600 IF X*="t" OR X*="T" 

11000 

610 IF X*="u" OR X*="U" 
1 2000 : GOSUB 1 2000 : GOSUB 
620 IF X*="v" OR X$="V" 
12000: GOSUB 12000: GOSUB 
1 1 000 

630 IF X*="w" OR X*="W" 
1 2000 : GOSUB 1 1 000 : GOSUB 
640 IF X*="x" OR X$="X" 
1 1 000 : GOSUB 1 2000 : GOSUB 
1 1 000 

650 IF X*="y" OR X*="Y" 
11000: GOSUB 12000: GOSUB 
11000 

660 IF X*=' , 2" OR.X*="Z" 
1 1 000 : GOSUB 1 1 000 : GOSUB 
12000 

1000 FOR N=l TO M*20: NEXT: GOTO 
10000 FORN=lTOM: NEXT: RETURN 
11000 PLAY"L=W; " : PLAY" A" : GOSUB 
0: RETURN 

12000 PLAY"L=X; ": PLAY" A" : GOSUB 
0: RETURN 



THEN GOSUB 
12000 

THEN GOSUB 
12000 

THEN GOSUB 

THEN GOSUB 
11000 

THEN GOSUB 
12000: GOSUB 

THEN GOSUB 
11000 

THEN GOSUB 
12000: GOSUB 

THEN GOSUB 
11000: GOSUB 

THEN GOSUB 
12000: GOSUB 



1000 



1000 



TEST DE LISTADO 



wammmmmm 



5 


_ , ~>'~> 


32 


- 95 


120 -164 


10 


-191 


35 


- 


130 -205 


20 


- 11 


37 


-101 


140 - 30 


22 


-189 


40 


-225 


150 -140 


25 


-188 


42 


- 56 


160 -142 


27 


- 89 


100 


-132 




30 


- 78 


110 


-143 


(SIGUE) 



m 



298 -159 

299 - 94 



440 
450 
460 
470 
480 
490 
500 



-229 
- 13 
-204 
255 
-188 
-248 
-252 




510 


- 7 


580 


- 1 


650 - 26 


520 


-216 


590 


-239 


660 - 8 


530 


- 40 


600 


- 63 


1000 -200 


540 


- 22 


610 


- 7 


10000 -124 


550 


- 35 


620 


-236 


11000 -116 


560 


-244 


630 


- 31 


12000 -117 


570 


- 10 


640 


- 4 


TOTAL: 8568 




Carlos Oliver Folguer¿ 



ite programa de gestión de fichas, cuyo menú te 
■eación, búsqueda, borrado, corregido y Ueva un índice y un archín w 
Su capacidad es para treinta fichas, las cuales pueden ser ampliadas y 









i " ■ ■ 
3 ' . - . 



LORO 

Para MSX - EXTRA 



- • 




4 ' - 

5 * 

10 CLS: COLOR 1,2,8: SCREEN 1 : VP0KE8 1 9 
6,7:KÉY OFF 

20 LOCATE 6,4:PRINT " — lf 

^^^^^^ 

30 LOCATE 6 t 5sPRINT ÍÍÍJftff LORO fffíffíf 
40 LOCATE 6,6:PRINT " 



50 LOCATE 5,10:PRINT " ÍC1 Carlos 01 
i ver . " 

60 LOCATE 9,17: PR I NT " M A R Z 0" 

70 LOCATE 10,19:PRINT" 1986" 

80 FOR 1=0 TO2400:NEXT I 

90 SCREEN 0: DEFINTA-Y: MAXFILES=2 

100 CLEAR2500: OREN "GRP: "AS#L 

110 CLS:DIM A* (30,5), B$ (30, 5) , C (30 

,5) , V*(30> 

120 ON ERROR GOTO 1780 
130 CLS: SCREEN0: COLOR 15,4 
140 LOCATE 7 !1 0:PRINT "O P C I Q N E 
S" 



150 LOCATE 5,2:PRINT "1- CREACION" 
160 LOCATE 5,5:PRINT "2- BUSQUEDA " 
170 LOCATE 5., 3:PRINT "3- INDICE" 
180 LOCATE 5, 11:PRINT"4- BORRAR-COR 
REGIR" 

190 LOCATE 5,14:PRINT "5- ARCHIVO D 
E DATOS " 

200 LOCATE 5,17:PRINT "6- TERMINAR" 

210 LOCATE 7„21:PRINT"<Dame tu opci 

ón>" ; : BEEP: G03UB 250 

220 K*=INKEY$: IFK*<>" " THEN 260 

230 LOCATE 8,21: PR I NT3PC (14);: GOSUB 

250 

240 GOTO 210 

250 FOR Z=1TO300:NEXT:RETURN 
260 IF K*<"1" OR K*>"6" THEN 210 
270 ON VAL í K$ ) GOTO320, 560, 880, 1050 
, 1870,230 

280 SCREEN0:KE YON: COLOR 15,4,4:CLEA 
R200:NEW:END 

290 " 

300 « Crear -fichas 
310 ' 

320 CLS: COLOR 1,S:Y=P 
330 X=2:N=0:M=Y:GOTO 360 
340 CLS :PRI NT "¿CREAR OTRA FICHA. S/ 





9 i KuuKnt h uí 


■■■■ 


iiiíiiiii 


iiiiiiitiiiiiiiiiiiii 



N-?" ; : RS= INPUT* ( 1 ) 

350 IF R*-"S" ÜR R*="s"THEN ELSE 130 

360 M=M+ 1 : N=0 : P=P+ 1 : 1 : Y=M 

370 CLS:PRINT "FICHA NP.-";Y 

380 PRINT STRING*(36,45) 

390 INPUT "NOMBRE FICHA-" s V* (Y) 

400 IF LEN(V*(Y) > >19 THEN 390 

410 N=N+1 

420 INPUT "FECHA-" ; A* (M*N) 
430 IF LEN (A* (M, N) ) >5 THEN 420 
440 INPUT " N . FACTURA- " ; B* ( M , N ) 
450 IF LEN ( E<$ (M, N ) ) >9 THEN 440 
460 INPUT "PTAS. -";C(M,N) 
470 IF LEN (3TR* (C (M, N) ) ) >8 THEN 460 
480 IF N=5 THEN CLS: PRINT "FICHA CO- 
MPLETA. "Pul sa -S~ para seguir." E 
LSE 500 

490 IF INKEY*="S" OR INKEY*="s" THE 
N 340 ELSE 490 

500 INPUT "¿Otro asiento -S/N-"; R* 
510 IF R*="S" OR R*="s" THEN N=N+ls 
GOTO -420 
520 GGTO 340 

530 ? 

540 ' búsqueda 
550 

560 CLS: SCREEN1: COLOR 1 , 7: VPQKE8196 

, 3: VP0KE8222, 1: LOCATE 4,0: PRINT "B 

U B Q U E D A" 

570 PRINT STRING*<29,247) 

580 LOCATE 0,3: PRINT "Elige el méto 

do de búsqueda. " 

590 LOCATE 4, 6: PRINT "1- Por N9_ de 
ficha. " 

600 LOCATE 4, 8: PRINT "2- Por clave. 
": PRINT 

610 PRINT STRING* (29, 247) 
620 K*=INKEY*:IF K*="l" THEN 640 
630 IF l<*="2" THEN 750 ELSE 620 
640 CLS: LOCATE 3, 3: PRINT "Para efec 
tuar una búsqueda debes introducir 
el NS de ficha." 

650 LOCATE 4, 7: INPUT "Ficha N£-";Y 
660 IF Y<1 THEN BEEP : GOTO 650 
670 GOSUB 1500 

680 PSET(20, 165) , 10:PRINT#1, "Otra f 
icha: " 

690 PSET(30, 178) , 10:PRINT#1, "-SELEC 
T-" 

700 PSET<165, 165) , 10:PRINT#1, "MENU: 

":PSET(150, 178) , 10:PRINT#1, " -RETURN 
m , ii 

710 K*=INKEY* 

720 IF K*=CHR*(24> THEN 560 



730 IF K.*=CHR*(13) THEN 130 
740 GOTO 710 

750 M=0: CLS: LOCATE 4,0: PRINT "BUSQU 
EDA POR CLAVE" :Z=4 

760 LOCATE 2, 2: INPUT "ENTRA LA CLAV 
E";T*:IF LEN(T*>>19 THEN 760 
770 Y=l 

780 IF I NSTR ( 1 , V* < Y ) , T* ) =0 AND T*<> 
"" THEN 810 

790 LOCATE 2, Z: PRINTY; SPC (4) ; V* < Y) : 
Z=Z+l:Y=Y+l:GOTO 780 
800 GOTO 670 

810 IF Y<P THEN Y=Y+l:GOTO 780 
820 IF Z=4 THEN 840 

830 LOCATE 2, 24: I NPUT " Di me el NS de 

ficha: "; Y: GOTO 660 
840 CLS : SCREEN2 : BEEP : PSET í 1 00 , 1 00 ) : 
PRINT#l,"NO EXISTE": GOTO 680 
850 ? 

B60 ' Indice 
870 ' 

880 CLS: COLOR 1,7: LOCATE 9,0: PRINT" 
INDICE " 

890 LOCATE 3, 5: PRINT "Si aparece - 

V - al final pulsa - RETURN - y 

aparecerán las demás fichas." 

900 L0CATE3, 10: PRINT "Pul sa una tecl 

a. " ; : BEEP: GOSUB 250 

910 IF INKEY*<>" " THEN 940 

920 L0CATE3 ,10: PP I NT SPC (16);: GOSUB 

250 

930 GOTO 900 

940 CLS: X~-=2 • 

950 FOR M=l TO P:BEEP 

960 LOCATE 2, X: PRINT M,V$(M> 

970 IF M>=10 THEN LOCATE 2, 20: PRINT 

" V" : LOCATE 6, 22: PRINT "- RETURN -" 

980 IF X>19 THEN IF INKEY*=CHR* (13) 

THEN CLS: X =2: GOTO 960 ELSE 980 
990 X=X+2 
1000 NEXT M 

1010 LOCATE 2, 22: PRINT "Pulsa una 
tecla"; : X*= I NPUT* < 1 ) :X=X+l:GOTO 130 
1020 ' 

1030 ' corregir 
1040 ' 

1050 CLS: COLOR 1,4: LOCATE 6,0: PRINT 

"CORRECCION" 
1060 LOCATE 2, 3: PRINT 
r o borrar una ficha 
e su No. » 

1070 LOCATE 2, 8: INPUT "CORREGIR O B 
ORRAR (C/B)-";BO* 

1080 IF BO*="B" OR BO*="b"THEN CLS: 



'Para corregi 
debes darm 




LOCATE 10,7: INPUT"N£ DE FICHA" ; M EL 

BE 1120 

1090 PLAVcl" 

1 1 00 FORN= 1 T05 : V$ (M) =" " : A* (M, N) =" " : 
B* (M, N) =" " : C (M, N) =0: NEXT 

1110 LOCATE 10, 12: PR I NT " F I CHA " ; M ; " B 
ORRADA" : FORZ= 1 TO 1 000 : NEXT: GOTO 130 
1120 CLS: LOCATE 2,7:INPUT "Corregir 

la ficha N2-" ;Y 
1130 CLS:GOSUB 1500: N=l 
1140 LINE (10, 160) -(250, 192) , 10, BF 
1150 PSET (20, 162) ,7: PRINTttl, " NOMBRE 

:"; 

1160 E*=IMKEY*:IF E*="" THEN 1160 
1170 IF E$=CHR*<13) THEN 1200 
1180 IF E*=CHR$<8) THEN LINE(72,160 
) - ( 250 , 1 70 ) , 7 , BF : V$= " " : GOTO 1 1 50 
1190 V$=V*+E$: PRINTttl , E$; : GOTO 1160 
1 200 I F LEÑ < V* ) > 1 9 THEN V*= " " : GOTO 
1140 

1210 V* ( M ) «V* : " " 

1220 PSET (20, 176) ,7: PRINTttl, "FECHA: 

1 230 E*= I NKEY* : I F E*= " " THEN 1 230 

1240 IF E*=CHR$(13) THEN 1270 

1250 IF E'*=CHR*(8) THEN LINE(64,176 



) - < 250 , 1 90 ) . 1 , BF : V$= " " : GOTO 1 



!0 



1260 V*=V*+E$: PRINTttl . E*s : GOTO 1230 
1270 IFLEN(V$) >5 THEN LINE (10. 176) — 
(250, 192) . 10, BF s V$= " " ¡ GOTO 
1280 A$ (M, N) *V*i V*=" " 
1290 LINE (10, 160) -(250, 192) , 10, BF 
1300 PSET (20, 162) , 7: PRINT#1 , "N2 FAC 

1310 É*=INKEY*5 ÍF E*= ,,n THEN 1310 
1320 IF E*=CHR$(13) THEN 1350 
1330 IF E*=CHR*<8) THEN LIME(80,160 
) - ( 250 , 1 70 ) , 1 , BF : V*= " «■ : GOTO 1 300 
1 340 V*»V*+E1> : PR I NTtt 1 , E* ; : GOTO 1 3 1 
1 350 I FLEN í V* ) >9THEN " " : GOTO 1 29 



1360 B* (M, N) «Vf: V*=" " 
1370 PSET (20, 176) , 7: PRINTttl , "PTAS. : 
5 

1380 E*=INKEY*: IF E*^"" THEN 1380 
1390 IF E$=CHR*<13) THEN 1420 
1400 IF E$==CHR*(B) THEN LIME(64,176 
) - ( 250 , 1 90 ) , 1 , BF : V*= " " : GOTO 1 370 
1410 Vé«V$+E$: PRINTttl „ E*: s GOTO 1380 
1420 IF LEN(V*)>7 THEN V$="":LINE(6 
4, 176) -(240, 190) , 10, BF: GOTO 1370 
1430 C(M,N)=VAL(V$) : V*="" 
1440 LINE (10, 160) - (250, 192) , 10, BF 
1450 PSET (20, 162) ,7: PRINTttl, "¿0" 
ASIENT07-ÍS/N) " 



1460 E*=INKEYf 
1470 IF E**"n M OR E**= ,r N" THEN 130 
1480 IF E*^"S" OR E*="e" THEN N=N+1 
:IF N>5 THEN 130 ELSE 1220 
1490 GOTO 1460 

1500 1 #* CALCULO DE TOTALES ** 

1510 S=0:M=Y 

1520 FOR Hml TO 5 

1530 S=S+C(M,N) 

1540 NEXT N 

1550 ' ** FORMACION PANTALLA ** 
1560 SCREEN2: COLOR 1,3: CLS 
1570 LINE (0,0) -(255, 12) , 15, BF 
1580 LINE (20,0)-(50, 12) , 1,B:LINE ( 
70,0) -(235, 12) , 1,B 

1590 PSET (20, 2) , 1: PRINTttl, Y: PSET (S 
0,2) , 15: PRINTttl, V$ ( Y) 

1600 LINE (20, 13) -(235, 135) ,7,BF:LIN 
E<20, 13)~(235, 17) , 4, BF: LINE (20, 13)- 
(75, 135) , 4, B: LINE (75, 13) -(160, 135) , 
4, B: LINE (160, 13) - (235, 135) „ 4, B 
1610 LINE(25, 18)-(231,30) , 14, B 
1620 PSET (32, 21) ,4: PRINTttl, "FECHA" 
1 630 PSET < 75 , 2 1 ) , 4 : PR I NTtt 1 , " FACTU 



1640 PSET (160, 21) ,4: PRINTttl, " PTAS 

II 

■ 

1650 LINE (160, 140) -(235, 155) , 15, BF 
1660 PSET (100, 145) : PRINTttl, " TOTAL=" 
1665 I FSGN ( S> «- 1 THENCOLOR 8 
1670 PSET (162, 145) , 15: PRINTttl , USING 
"tttttttttttttttt" : S: COLOR 1 

1680 LINE (10, 160) -(250, 192) , 10, BF 
1690 LINE (27, 175) -(100, 187) , 1,B:LIN 
E(148, 175)-(215, 187) , 1,B 
1700 X=40 
1710 N~l 

1720 PSET (32, X) , 7: PRINTttl , A* (M, N) :P 
SET (90, X) ,7: PRINTttl, B$ (M,N) : PSET (17 
, X ) , 7 : PR I NTtt 1 , US I NG » tttttttttttttt " ; C ( M , N 

N*N+1: BEEP 
X=X+20:BEEP 
IF N=6 THEN RETURN 
GOTO 1720 



1730 
1740 
1750 
1760 
1770 
1 780 
1790 
1 800 
1810 
I NT 



* RUTINA DE ERRORES * 



IF ERR=9 THEN 1840 
IF ERR=14 OR ERR=7 THEN CLS.-PR 
"LA MEMORIA ESTA COMPLETA , PARA 



PULSA UNA 



SEGUIR DEBES GRABAR LOS DATO 
A CINTA , 

: INPUT A 
1820 RESUME 1870 
1830 1 



EN UN 
TECLA 





OOi~H~ OQt~iQC 



1840 IF ERR=9 THEN CLS 8 PRINT "EL N£ 
DE FICHA ES DEMASIADO ELEVADO, 
EL MAXIMO ES 30. "."Pulsa -S-" 
1850 IF INKEY*="S" ÜR INKEY*="s" TH 

EN RESUME 130 ELSE 1850 
1860 " 

1870 ' ARCHIVO DE DATOS 

1880 

1890 CLS: COLOR 1,9: SCREEN1 : VPQKE319 
6, 8: LOCATE 6, 08 PRINT "ARCHIVO 
11 : LOCATE 1,5: PRINT "¿Que quieres?": 
LOCATE 4, 7: PRINT "1- Guardar fichas 
,":LOCATE 4,9:PRINT"2- Cargar dato 
s ,": LOCATE 4,11:PRINT "S- Volver a 
1 MENU" 

1900 K$=INKEY$ 
1910 
1920 



THEN 2090 
OR K*="s" THEN 
THEN 1950 



130 



IF K*="2 n 
IF K*="S" 
1930 IF K$="l" 
1940 GOTO 1900 

1950 CLS: LOCATE 0,5:RRINT "PON EL C 
ASETTE EN -RECORD-- Y PULSA 
-RETURN-" 

1960 IF INKEY*=CHR*< 13) THEN 1970 E 
LSE 1960 

1970 OREN "CAS:LORO"FOR OUTPUT AS tt 
2 

1980 LOCATE 5, 10: PRINT" ARCHIVO ABIE 
RTO " 

1990 FOR 1=1 TO PsFOR N=l TO 5 
2000 PRINT #2,V$(I> 

2010 PRINT #2, A* < I , N) : PRINT #2,B*(I 







,N) b PRINT #2,C(I,N> 
2020 NEXT N, I 
2030 CLOSE #2 

2040 CLS: LOCATE 5, 5: PRINT "ARCHIVO 
TERMINADO" , "Pulsa -B- para borrar.' 
, "-S- para volver al MENU" 
K*=INKEY* 

THEN 130 
THEN 100 



2060 
2070 



IF K*«="D 
IF K**"B" 
GOTO 2050 



2090 
2100 
2110 



PON EL 
PULSA 



■* * CARGA DE DATOS * 
CLS: LOCATE 0,5: PRINT 
CASETTE EN -PLAY- 
-RETURN-" 

2120 IF INKEY*=CHR*<13) THEN 2130 E 
LSE 2120 

2130 OPEN" CAS: LORO" FOR INPUT AS #2 
2140 LOCATE 2 ? 1 08 PR I NT "ENCONTRADO A 
RCHIVO" 
2150 P=0 

2160 FOR 1 = 1 TO 30: FOR 

IF E0F(2)=-1 THEN 2221 
INPUT #2,V*(I> 
INPUT #2. A* < I , N> : INPUT 
INPUT #2,C(I,N) 



, B*(I 



N-iTO 

2170 
2180 
2190 
,N) : 

2200 P=I 
2210 NEXT N, I 
2220 CLOSE #2 

2230 CLS: LOCATE 0, 5: PRINT " LOS DATO 
S ESTAN EN LA MEMORIA",," Pulsa un 
a tecla. ";: X*=INPUT*(1) : GOTO 130 



I ■ I ■ I ■ I ■ I ■ I 



_ 



usp; 
i 


'DEhli 

-• 58 


JTÜJA 

150 


-222 


340 


==== 

-164 


530 


- 58 


720 


- 16 


910 


- 48 


1 1 00 


-108 


•~» 


- 58 


160 


-248 


350 


-223 


540 


- 58 


730 


- 85 


920 


- 45 


1110 


-171 


3 


- 58 


1 70 


- 78 


360 


-141 


550 


- 58 


740 


- 95 


930 


- 30 


1 1 20 


-198 


4 


- 58 


180 


-246 


370 


-191 


560 


-162 


750 


-231 


940 


- 51 


1 130 


i ~> r ^>'~> 


rr 
bJ 


- 58 


1 90 


-184 


380 


- 96 


570 


- 35 


760 


- 99 


950 


-243 


1 140 


- 52 


10 


-146 


200 


- 14 


390 


-1 15 


580 


- 19 


770 


- 90 


$£ 


-203 


1 150 


-255 


20 


- 81 


210 


— ^32 


400 


- 16 


590 


-181 


780 


-108 




- 96 


1 160 


- 25 


30 




220 


-141 


410 


-142 


600 


-213 


790 


-234 


980 


-150 


1 170 


- 1 29 


40 


-165 


230 


- 59 


420 


- 5 


610 


- 35 


800 


- 55 


990 


-163 


1 1 80 


- 81 


50 


- 64 


240 


-105 


430 


-123 


620 


- 76 


810 


-130 


1000 


-208 


1 190 


-106 


60 


-214 


250 


-132 


440 


- 49 


630 


-142 


820 


- 28 


1010 


-184 


1 200 


-199 


70 


- 38 


260 


-231 


450 


-148 


640 


-177 


830 


-127 


1 020 


- 58 


1210 


-104 


80 


- 47 


270 


- 19 


460 


-242 


650 


-197 


840 


-100 


1 030 


- 58 


1 220 


-161 


90 


- 8 


280 


- 52 


470 


-103 


660 


-221 


850 


- 58 


1040 


- 58 


1230 


- 95 


1 00 


-149 


290 


- 58 


480 


-165 


670 


-124 


860 


- 58 


1050 


- 69 


1240 


-199 


110 


- 41 


300 


- 58 


490 


-151 


680 


-150 


870 


- 58 


1060 


-104 


1250 


-180 


120 


-204 


310 


- 58 


500 


-227 


690 


-252 


880 


- 16 


1070 


-201 


1260 


-176 


1 30 


- 5 


320 


-191 


510 


-120 


700 


-153 


890 


-159 


1080 


-143 


1 270 


-137 


140 


-156 


330 


-235 


520 


-236 


710 


- 74 


900 


-196 


1090 


-153 


1280 


-205 



i 



I 



oo 



<U! n JDQiTiQL 
isUUKl II 11 l-i 



1 ^90 




1 300 

X •— * Y-' >-' 


— A 1 


X ■—• X K' 


— 1 7 A 
x / o 


1 320 


— 74 






1 340 


_ 1 
1 


1 350 


- 86 


1360 


-206 


1370 


-176 


1380 


-246 


1 390 


- 94 


1400 


- 75 


1410 


- 71 


1420 


- 76 


1430 


-143 











1440 


~ 52 

w .... 


1 590 


- 189 


1 730 


— 1 TA 
x jo 

x / •_• 


1 RRffl 
X OOJí' 




¿. iO O y.' 




2x50 -251 


1 450 




1600 


- 86 


1 740 


X O 7 i'.' 


— 1 AZL 




1/1-7 

— 14/ 


2 1 90 - 1 1 5 


1460 


- 6R 


1610 


— 1 90 


1 7 c ;0 

X / ^¡Y.i 


— 7 1 
/ X 


X 7 \C>YJ 


~7 n 

/ f 


<~i /■;< cr ,-i 


7 /l 

— / 4 


*""} *~| 4 t / 

2200 — 1 36 


1 470 


—224 


1620 


- 1 22 


1 7A0 

X / O >i' 




X 7 X Y.' 


*** 


70 A 

j^. 11' D >. 




¿¿.Xw — 70 


1480 


- 1 05 


1 630 


- 1 1 6 

j. x o 


1 77(7J 
x / / v.i 


- 58 


X 7*..JÍ» 






lo/ 


2220 —234 


1 490 


- 80 


1 640 


— 41 


1 7R0 
X / OY.i 


JO 


x 7 i:> 






luí 


2230 -124 


1 500 


- 58 


1650 


-135 


1 790 


- 58 


1940 

/ ■ Km* 


- 10 


20 Q 


— 5R 


1510 


- 34 


1660 


-131 


1800 


-149 


1950 


- 94 


2100 


- 58 




1520 


-192 


1665 


- 85 


1810 


-179 


1 960 


-161 


2110 


-213 




1 530 


-225 


1670 


-221 


1820 


- 10 


1970 


-220 


2120 


-227 




1540 


-209 


16B0 


- 52 


1830 


- 58 


1980 


- 84 


2130 


- 18 




1 550 


- 58 


1690 


-254 


1840 


- 90 


1990 


-239 


2140 


- 56 




1560 


-250 


1 700 


-126 


1850 


-151 
- 58 


2000 




2150 


- 80 




1570 


-228 


1710 


~ 79 


1860 


2010 


-151 


2160 


-204 


TOTAL: 


1580 


-211 


1 720 


-104 


1870 


- 58 


2020 


- 70 


2170 


- 40 


28219 




ROBYD 



'ENSER 



POR JOSE 
SANCHEZ MORALES 





sarrollado en Basic 
muy bien programado en cuanto a su 
estructura, aunque muy simple su 
argumento. Sus dificultades aumentan a 
medida que se superan distintos 
puntees. I]] 
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MSX EXTRA 

JOSE SANCHEZ MORALES 
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VARI ABLI 



INICIALES 



CLEAR400, 55296 ! : DEFINTA-Z 
N=120: M=140: Z=13: W=14: S=4: H=8 



CABECERA 



COLOR 15, 1, 1:KEY0FF:SCREEN2,2:0 
grp: "AS#1 



15:PRINT 



230 PRESET (40, U) , 15.C0L0R 
#1,"JÜSE SANCHEZ MORALES" 
240 PRESET (40, U) , 1: COLOR 1:PRINT# 1, 
"JOSE SANCHEZ MORALES " : PLA Y " 1 64m 1 0s 
8o7cbaf " 

250 IF U<50 THEN220 

260 PRESET (40,50) , 15.C0L0R 15:PRIN 

T#1,"J03E SANCHEZ MORALES" 

270 PRESET ( 39 , 50 ) , 1 5 : C0L0R8 : PR I NT# 

1,"J0SE SANCHEZ MORALES" 

280 PRESET (38,50) , 15: COLORIS: PRINT 

#1,"J0SE SANCHEZ MORALES" : PLAY"m650 

1 15o5ccdeccdeaaf gbgf " 

290 FOR I = 1 TO2000 : NEXT I : PRESET ( 75 , 1 
0): COLOR 15: PRINT#1, "PRESENTA" : PLA 
Y " m5000s 1 o6f i g e " : FOR I = 1 TO 1 500 : NEX T I 
300 CLS:SCREEN3 
310 F0RI=1T015 

320 PRESET (40, 40) : COLOR I:PRINT#1," 

ROBY DEFENSER" : PLAY"F" 

330 PRESET (42, 44) : COLOR I-1:PRINT#1 
, " ROBY DEFENSER" 
340 NE XT I : PLA Y " s8 1 1 0o4m 1 5000 1 CAB02C 



m m : rv wimm- tr » • 9 • • wm w w i 

i 




OOnr QQi~iOC 

I i\UUKi II II I-' 



AB03CAB04CAB05CAB06CAB07CAB08CAB" 
350 FOR 1=1 TO3000 : NEXT 1 : SCREEN0: COLO 
R 15,4,4:SCREEN 2, 2: C0L0R15, 4, 1 
' ■nHHnflBHHHHM 

370 SPRITES ■ 

390 FOR 1=1 TO 1 6 : READA : A*=A*+CHR* (A) : 
NEXT I : SPRITE* (0) =A* 

400 FOR I = 1 TO 1 6 : READB : B*=B*+CHR* ( B ) : 
NEXTI: SPR ITE*(1)=B* 

410 F0RI=1T016: READC: C*=C*+CHR* (C) : 
NEXTI : SPRITE* (3) =C* 

420 FOR I = 1 T08 : READD : D*=D*+CHR* ( D ) : N 
EXT I : SPR I TE* ( 2 ) =D* 

430 FOR I = 1 T08 : READF : F*=F*+CHR* ( F ) : N 
EXTI:SPRITE*(5)=F* 

440 FOR I = 1 T032 : READE : E*=E*+CHR* < E ) 
: NEXTI: SPRITE* (4) =E* 

450 F0RI=1T032:READK:K*=K*+CHR*(K) : 
NEXTI : SPR I TE* (6) =K* 

460 FOR I = 1 T032 : READH : H*=H*+CHR* ( H ) 
: NEXTI : SPRITE* (7) =H* 

470 F0RI=1T032:READJ0: JO*=JO*+CHR* 

(JO) : NEXTI: SPRITE* ( 10) =J0* 

4S0 F0RI=1T032:READZ: Z*=Z*+CHR* (Z) 

: NEXTI : SPRITE* ( 13) =Z* 

490 SPRITE* (9)=SPRITE* (7) 

500 SPRITE* ( 12) =SPRITE*( 10) 

510 SPRITE* ( 15) =SPRITE* ( 13) 

'■■■■HMMHHHI 
530 ■ DATAS ■ 

' mmmmammaammmmmmmm 

550 DATA112,64, 112, 112, 160,240,247, 

254 , 240 , 240 , 96 , 96 , 96 , 96 , 96 , 1 20 

560 DATA112,64, 112, 112, 160,240,247, 

254 , 240 , 240 , 80 ,32,80,144,144, 238 

570 DATA112,64, 112, 112, 160,240,254, 

252,240,240,48,40,36, 196, 132,231 

580 DATA0 ,0,0,0,0,0,7,0 

590 DATA112,64, 112, 112, 160,240,247, 

254 

600 DATA0,0,0,0,0,2, 12,54, 126,247, 1 

43,48,3,2, 12, 1 , 0, 0, 4, 8, 25, 62, 124 , 12 

4, 254, 255, 255, 238, 68, 68, 68, 152 

610 DATA0,0,0,0,0,2, 12,54, 126,227, 1 

31,4,9,49, 1,6,0,0,4,8,25,62, 124, 124 

,254,255,255,238,68,34, 17, 102 

620 DATA3, 1,1, 16,24,28,245,255, 11,3 

7,8,0, 15, 17,3,4, 128, 192,240,248,252 

,252,254, 199,225,241,240, 104,68,5,5 

,2 

630 DATA0, 0, 1,0,0,24,36,255,60,24,0 
, 0, 0,0, 0, 0, 24, 252, 252, 252, 24, 24, 60, 
254,60,24, 12,6,63, 127,63,6 
640 DATA0,0,0, 1,2,4,8,63,255,63,3, 1 



m m 















1,0,0,0,0,3,7,254,92, 153, 179,255,2 



52, 



Í43, 241 , 248 



4,0 



660 ■ VARIABLES ■ 

' mmmmtmmmmmmmmmmmm 

630 X= 1 : Y= 1 00 : V=3 : A=0 : P=0 : L=25 : 0=9 
: H=8: A2=0: JA=0: B=4 : S=4 
690 N=120:M=140: Z=13: W=14 

PUTSPRITE12, (100, 1) , 15,5 
PUTSPRITE13, (N, 1) , 15,5 
PUTSPRITE14, (M, 1) , 15,5 
IF P1=0 THENGOSUB 1 570 
R=250 : T= I NT ( RND ( 1 ) * 1 82 ) + 1 



700 
710 
720 
730 
740 
750 
760 
770 
780 
790 



MOVIMIENTO ROBY 



GOSUB 1260: GOSUB 1360 
A=STICK(0) 
800 I F A=0THENPUTSPR I TE0 , ( X , Y) , 1 1 , 
810 IF A=l THENY=Y-H: PUT SPRITE0,(X 
, Y) , 11,3 

820 IF A=4 THENY=Y+H: X=X+H: PUT SPRI 
TE0, (X, Y) , 11,3:FORI=1TO80:NEXTI:PUT 
SPRITE0, (X, Y) , 11, 1 

830 IF A=3 THENX=X+H:PUT SPRITE0,(X 
, Y) , 11,3: FORI=1TO80: NEXTI :PUTSPRITE 
0, (X,Y) ,11,1 

840 IF A=7 THENX=X-H:PUT SPRITE0, (X 
,Y) , 11,3:FORI=1TO80:NEXTI:PUTSPRITE 
0, (X, Y) , 11, 1 

850 IF A=5 THEN Y=Y+H: PUTSPRITE0, ( X 
,Y) , 11, 1 

860 IF A=2THENX=X+H: Y=Y-H: PUTSPRITE 
0, (X,Y) ,11, 1 : FORI=1TO80: NEXTI : PUTSP 
RITE0, (X, Y) , 11,3 
870 IF Y>170 THEN Y=170 
IF Y<20 THEN Y=20 



880 
890 
900 
910 
920 
930 
940 
950 

T=T 
960 
970 
980 
990 
1 000 
1010 
1 020 
1030 
1040 
1 050 



■ VARIABLES ENEMIGAS ■ 
R=R-0 

IF R<=10 THENB=B+1 

IF B>=100THEN GOSUB 1420 

IFT<20 THEN T=T+20: IF T> 140THEN 

-20 

IFP>300 THENS=10 
IFP>400 THENS=13 
PUTSPRITE5, (R,T) , 12, S 

F0RI=1T025:NEXTI 
PUTSPRITE5, (R, T) , 12,S+2 

I FSTR I G ( ) =- 1 THENGOSUB 1 060 

SPRITEON 

ONSPRITE GOSUB 1140 
T=T- INT ( RND ( 1 ) *2) 
GOTO 790 
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1060 PUTSPR ITE0, <X,Y> , 11,3: Z=X : G=Y: 

L=L-1:GOSUB1360 

1070 IF L<0 THEN GOTO 1420 

1 080 S0UND6 , 30 : S0UND7 , 223 : SOUND 1 , 

16: S0UND1 1 „ 8: SOUND1 2 , 13: SOUND 1 1 , 8: S 

0UND13, 1 

1090 Z=Z+5 

1100 PUTSPRITE4, <Z,G) , 15,2 
1110 IF Z<252 THEN 1090 
1120 PUTSPR I TE4 , < Z , G ) ,8,2 
1130 RETURN 

1140 IFR>X+25 THEN ELSE GOTO 1180 
1150 SPRITEOFF: PUTSPR ITE4, (0,0) , 1,2 
: PUTSPR ITE5, ( R , T ) , 1 , S : GOSUB1220 
1160 IF (R< = X ) AND (T=Y> THENGOTO 1420 
1170 RETURN 
1180 V=V-1 

1190 IF V=l THEN PUTSPRITE14, (160, 1 
0) , 1,5:G0SUB 1810 

1200 IFV=2 THEN PUTSPR I TE 1 3, < 100, 10 

),1,5: GOSUB1780 

1210 IF V< 1 THENGOTO 1 420 

1 220 SOUND 10,0: S0UND8 , : S0UND6 , 30 : S 

0UND7 , 247 : S0UND8 ,16: SOUND 11,1 00 : SOU 

ND 12, 100: SOUND 13, 1: GOTO 740 

' mmmmmmmmmmmmm 

1240 SCORE m 

1260 LINE (160, 1 ) - (252, 15) , 15,B:PSET 

(165,5) , 1:PRINT#1, "SCORE" : PSET (214, 

5) , 1: COLOR 1:PRINT#1, "■■■": PSET (21 

4,5): COLOR 15:PRINT#1,P : P=P+5 

1270 IF P=>50 AND P<250THEN S=7 

1280 IF P=>85 THEN 0=12 

1290 IF P=>90 THEN 0=16: H=9 

1300 IF P=>100ANDA2=0THEN L=25:A2=1 

1310 IF P=>150 THEN 0=21:H=16 

1320 IF P=>200 ANDJA=0THEN G0SUB1 87 

0:L=30:H=12:O=20 :S=10 

1330 IF P=>500 ANDA3=0THEN G0SUB158 

0:L=60: H=14: 0=22 :S=12:A3=1 

1340 IF P=>3000 THEN GOTO2030 

1350 RETURN 

' wmmmmmmmmmmm 

1370 ' ■ LASER ■ 
' ■■■■■■■■ 

1390 LINE(3, l)-(95, 15) , 15, B: PSET (10 
,5) , 1:PRINT#1, "LASER": PSET (55, 5) ,1a 
COLOR 1:PRINT#1, " : PSET (55,5) : C 



OLOR 
1400 
1410 
1420 
1430 
1440 



15:PRINT#1,L 
RETURN 
GOTO 740 



TRAGICO FINAL 



1 450 S0UND6 , 30 : S0UND7 , 225 : SOUND 10,1 
6: S0UND1 1 , 8: SOUND 12, 13: S0UND1 1 , 8: SO 
UND13, 1:S0UNDB, 15:S0UND9, 1:F0RI=1T0 
700: NEXTI : S0UND8, 0: S0UND9, 
1 460 SOUND0 , : SOUND 1,0: S0UND2 , : SOU 
ND3 , : S0UND4 , : S0UND5 , : S0UND6 , : SO 
UND7 , : SOUND 10,0: SOUND 11,0: SOUND 1 2 , 
0:SOUND8, 15: S0UND9, 8: FOR I=1T0255:S 
OUND0, I: NEXTI: SOUND8,0: S0UND9, 
1470 LINE(0,60)-(255,90) ,6,BF:PRESE 
T (70, 70) : COLOR 4: PRINT#1 , "FIN DEL J 
UEGO" : F0RI=1T0 1000: NEXTI 
1480 S0UND8, 15:S0UND9,9: SOUND10,9: 
PLA Y " v 1 5t 1 201 4s8m850o4deo5edo4def o5 
dco4dccolcabc" 

1 490 PLA Y " v 1 5t 1 201 2s5m6500o4d eoSedo 
4de-f o5dco4dcco lcccc " 
1500 LINE(95, 118) -(190, 130) ,5,BF 
1510 PRESET(100, 120) ,5: COLOR 9:PRIN 
T#l , "¿OTRA? S/N" 
1520 Q*=INKEY* 
1530 IF Q*=""THEN 1520 
1540 IF Q*="N"OR Q*="n "THEN SCREEN0 
: COLOR 15,4,4:END 
1550 IF Q*="S" OR Q*=" 
OFF:GOTO 680 
GOTO 1520 



THENCLS:SP 



RITE 
1560 
1570 
1 580 
1590 
1600 
1610 



pantal 1 



1 



LINE(0,0)-'(255,20) , 1 , BF 
Z*= " BM0 , 1 00S7C9U 1 R3E4U4E3R4E3R 
4D3F3D4D2R3E4R3E4F3U6F4U 1 0R4E3R4E3D 
2U2HR4E3F5D4R3E4R3E4U3D 1 2EE3R2D 1 2R4 
E3U2E4D2U 1 E4R3E4R3D2E4R3U2E3R4F34 " 
1620 DRAWZ*:LINE(0, 190) -(255, 100) ,9 
,BF:PAINT(100,90) ,9 
1630 X*="BM80, 192S7C4u50el4dl00" 
1640 DRAWX*:PAINT(90, 190) , 4: LINE ( 10 
0,80) -(175, 190) , 13, BF 
1650 DRAWBM30, 192S7C14ul3e8d20" : PA 
INT(35, 190) , 14 

1660 LINE (44, 156) -(90, 190) , 15,BF:PA 
INT (35, 190) , 14 
1670 U=80 

1680 PRESET ( 103, U) , 13: COLOR 7: PRIN 



T#l 



rrrrrrrrr' 



1690 U=U+8 

1700 IF U<190 THENGOTO 1680 

1710 DRAW"bml30,80u5r3d5h2e2h2rlu20 
rld20" 

1720 CIRCLE(150,60) , 15, 15, , ,2:PAINT 
(150,60) , 15 

1730 LINE (150, 60) -(180, 50) , 14 
1740 RETURN 



1 ■ 



m 
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contador vidas! 



1750 ' 
1760 ' 

1780 Z = 1 2 : N=N- 1 : BEEP : PUTSPR I TE Z , (N, 
1 ) , 8, 5 

1790 IF N>100 GOTO 1780 
1800 RETURN 

1810 M=M-1:BEEP:PUTSPRITE12, <M, 1) ,8 
,5 

1820 IF M>100 GOTO 1810 
1830 RETURN 
1840 

1850 PANTALLA 2 m 

1870 JA=2: S=10: CLS: SCREEN0: COLOR 15 
,1,1: SCREEN2 : COLOR 15,1,1: GOSUB 1 230 
: GOSUB 1 370 : FORT= 1 TO 1 00 : X= I NT ( RND ( 1 ) 
♦255) : Y= I NT ( RND ( 1 ) # 1 90 ) : PSET ( X , Y) , 1 
1:NEXT 

1880 CIRCLEÍ200, 190) ,80,5, , , 1:PAINT 
(200, 190) ,5 

1890 CIRCLE(1B0,40) , 10, 10, , , 1:PAINT 
(180,40) , 10 

1900 CIRCLE(160,40) ,2,8, , , 1:PAINT(1 
60,40) ,8 

1910 CIRCLE(230,50) ,4,6, , , 1:PAINT(2 
30, 50) ,6 

1920 CIRCLE(200, 190) ,75,4, , , 1:PAINT 
( 200 , 1 90 ) , 4 

1930 CIRCLE(20,40) ,20, 15, , , 1 : PAINT ( 



■ 







20,40) , 15 

1940 CIRCLE(20,42) , 15, 11, , , 1: PAINT < 
20, 42) , 1 1 

1950 CIRCLE(23,46) ,2, 1, , , 1: PAINT (23 
,46) , 1 

1960 CIRCLE(18,30) ,1,1,,, 1 : PAINT ( 18 
,30) , 1 

1970 CIRCLE(29,42) ,3, 1, , , 1: PAINT (29 
,42),1 

1980 DRAW'bm 1 45, 142c9-f 5g5d3-f 5d21 h5 
lhlhlhlhl hu2eueueueueueueue2 " : PA I NT 
(145, 148) ,9 

1990 DRAW'bm 244 , 1 26c9g2h2g2d3g41 2d 
4r4u2e2u2r2d41 2d41 4d21 21 u21 2d41 2d41 
3dlf 3d318d4grd2r2f 2e2r2u2r2u2r2u2r2 
u2r2-f 4g2r2e2u2r21h4e3f 612d2r2f 2e2u2 
0uh uh uh uh un uh uh uh uh uh uh uh " 
2000 P A I NT ( 242 , 1 38 ) , 9 

2010 DRAW"cl5bml90, 120heherererer-f r 
-fr-f-f df d-f d-f d-fdgl4gl 1 hl heueul 3u2" : PA 
INT(199, 122) , 15 
2020 X=10:Y=Í00: RETURN 
2030 SCREEN1: LOCATE 1,6: COLOR 15, 6: P 
RINT: PRINT" ¡ i ¡ENHORABUENA! ! ! " 

2040 PRINT: PRINT: PRINT: PRINT" H 
AS BATIDO EL RECORD DE LOS DEFENSO 
RES DE LA TIERRA, POR TAN GRANDE HA 
ZAÑA SE TE OTORGA EL HONOR DE FIGUR- 
AR EN EL LIBRO DE LOS HEROES." 
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220 


-163 


430 


-202 


640 




63 


850 


- 40 


1 060 


-254 


1270 


-108 


20 




58 


230 


-235 


440 


-186 


650 




58 


860 


- 33 


1070 


-218 


.1280 


- 79 


30 




58 


240 


-147 


450 


-218 


660 




58 


870 


-102 


1080 


- 57 


1290 


-227 


40 




58 


250 


-213 


460 


-204 


670 




58 


880 


- 60 


1090 


-170 


1300 


-127 


50 




58 


260 


-215 


470 


- 98 


680 




41 


890 


- 58 


1 100 


- 98 


1310 


- 41 


60 




58 


270 


-209 


480 


- 42 


690 




17 


900 


- 58 


1110 


- 14 


1320 




70 




58 


280 


-110 


490 


-153 


700 




79 


9 1 


- 58 


1120 


- 93 


1330 


- 11 


80 




58 


290 


- 


500 


-155 


710 




43 


920 


-212 


1130 


-142 


1340 


-253 


90 




58 


300 


-178 


510 


-161 


720 




43 


930 


- 37 


1140 


- 40 


1350 


-142 


1 00 




58 


310 


-195 


520 


- 58 


730 




169 


940 


- 35 


1 1 50 


- 54 


1360 


- 58 


110 




58 


320 


-107 


530 


- 58 


740 




65 


950 


-159 


1160 


- 74 


1370 


- 58 


120 




58 


330 


-240 


540 


- 58 


750 




58 


960 


- 71 


1170 


-142 


1 380 


- 58 


130 




58 


340 


-165 


550 


-141 


760 




58 


970 


-174 


1 180 


-159 


1390 


- 44 


1 40 




58 


350 


- 22 


560 


-211 


770 




58 


980 


-165 


1190 


- 50 


1400 


-142 


150 




58 


360 


- 58 


570 


-208 


780 




181 


990 


-211 


1200 


-215 


1410 


-125 


1 60 




30 


370 


- 58 


580 


- 63 


790 




51 


1 000 


-169 


1210 


-229 


1 420 


- 58 

- 58 


170 




44 


380 


- 58 


590 


- 67 


800 




14 


1010 


- 31 


1220 


- 4 


1430 


180 




58 


390 


-178 


600 


- 20 


810 




39 


1020 


- 92 


1230 


- 58 


1440 


- 58 


1 90 




58 


400 


-1B4 


610 


-217 


820 




34 


1030 


-111 


1240 


- 58 


1450 


- 90 


200 




58 


410 


-191 


620 


-132 


830 




13 


1040 


- 78 


1250 


- 58 


1460 


- 31 


210 




19 


420 


-189 


630 


- 37 


840 




18 


1050 


-176 


1260 


- 22 


1470 


- 29 




/ fvL 



JJQfTiQC 



1750 - 58 1840 - 58 1930 -220 2020 - 29 

1760 - 58 1850 - 58 1940 -211 2030 - 2 

1770 - 58 1860 - 58 1950 -198 2040 -198 

1780 -197 1870 -230 1960 -155 

1790 -203 1880 -156 1970 -203 

1800 -142 1890 - 8 1980 - 41 

1810 -229 1900 -218 1990 - 49 

1820 -233 1910 -120 2000 - 28 TOTAL: 

1830 -142 1920 -149 2010 - 39 21398 



PROGRAMA 






iportancia de este programa es su utilidad para aquellos que 
quieren iniciarse en el conocimiento del código máquina. Un 
código fundamental para desarrollar pro^ 
rápidos y que significa un paso adelante en el tratamiento di 

ovecliamiento 

rama lia sido desarrollado con un 
máquina de 16 K. Gracias a él los 
ites en el lenguaje máquina 
verificarlas instruwionesy 

función POKE. Hay que considerar que las 
instrucciones escritas en los primeros 8 
bytes quedan anuladas debido al BASIC, de 
modo que las direcciones a consultar, por 
iplo en un HB 55P, están entre 58.000 
y 68.836 y la memoria ROM 0-49 

el programa 






impresora los resultados a fin de trato 
con mayor comodidad, s61o tienen^ue 




30 
40 
50 
60 
70 
80 
90 
1 00 

1 10 

s 

120 
1 30 
r 

140 
í 50 
160 
í 70 
180 
190 
200 
2 1 
220 
230 
240 
250 
260 
270 
280 
290 

300 

310 

320 

330 

340 

350 

360 

370 

380 

B28! 

390 

400 

410 

420 

430 

440 

450 

460 

470 

430 

490 

500 

510 

520 



* * * * % * % * if % % % % % % % %%%%%%%% %% 

* * 

* PROGRAMA DESEMBLADGR * 

% Real i t z a t per \> . O . C . * 

* * 

* Val enti Ocerans Civit * 

* * 

$ M 3jí & $ ^ >*(• % *^f- -í - - $ -Y- $ $ Jjf íjf ■■3|C-5|É 



•" Es un 



rama f et per aquel le 



' persones que es vulguin inicja 

* aqu.est programa escapaz de 
" p asar del s n umer os q u.e t en i m 
i 'en el ór di nadar a un llenguat- 



* ge amb el qual es mes fácil 

'+er anar el llenguatge 

' maqui na 
* 

• amb e 1 1 1 e n g u a t g e m a q u i n a 
CLEAR 200,58000! 

INRUT"di rece i o inicial " ; RR 
I NPUT " d i r eec i o f i n a 1 " ; RD 
FQRI=RRTORD 
A*= ,,, ':GÜSUBS90:.H=0 
As"A*+3TR1> ( I ) +" " 
A*=A$+B3s+" " 

IFB=&HCBTHEN GOSL | B25'30! GOTO400 

I FB--&HDDTHEN BQSUB2B00: GOTO400 

I FB=S<HEDTI !EN GGSUB3 1 40 : GOTO400 

IFB=S<HFDTHEN : H=3 : GGSUB880 : GOSU 

0:GOTG400 

GG8UB 1060 

I ^ M~0THEN : PR I NTA$ 

IFM=0THEN: LPRINTA* 

IFM>0THENs RETURN 

NEXTI : END 

A*=A*+STR* (PEEK ( I 4 1 ) ) 

1=1+1 : RETURN 

Y1*=HEX* (PEEK (1+2) ) 

Y2$~HEX$ (PEEK ( 1+1 ) ) 

S=LEN(Y2$) : I FS= 1 THENY2$= " " +Y2S 

I FS< =0THENY2$= " 00 " + Y2* 

X = VAL ( " StH " + Y 1 S+ Y2$ ) 

IFX<0THENX -65536 ! +X 

X*-STR*«:X> 



530 I-I+2: A*=A**X* 

540 RETURN 

550 I--I + 1 

560 E—PEE K I ) 

570 I FB ':- 1 28THENB- 

580 BS==STPS'B) 

s°0 m**m+m 

600 RETURN 

610 ' Arxitís BC,DE.HL,SP 

620 RESTORE 680 

630 FQRX-1T04: READQ*, Ql* 

640 G=VAL(QS) 

650 IFM3=Q THENA*=AS+Q 1 $ 

660 NEXTX 

670 RETURN 

680 DATA 00, BC, 1 , DE, 2, HL, 3, SP, 0,0 

690 'sr>!i-j.5 A,B,C,D,E.H,L, (HL> , A 

700 RESTORE 770 

710 F0RX*1T0B 

720 READQ*, Qí% 

730 G=VAL("^H"+Q$) 

740 I F M 5 ~ Q T H E N A % A S + Q 1 * 

750 NEXTX 

760 RETURN 

770 DATA 0,6,1^,2,0,3^,4^,5.1,6, 
< HL ) , 7 , A , , 

780 * arxius NI , 2 , NC , C , PO , P , M 

790 RESTORE 360 

800 F0RX=1T03 

310 READQ*,Q1* 

820 Q~VAL<Q*) 

830 IFM1-GTHENA$-A*+G1$ 

840 NEXTX 

350 RETURN 

860 DATA 0,NZ, 1,2,2., NC* 3 , C , 4 , PQ , 5, P 
E,6,P.7,N 

870 « M1,M2,M3„ M4, IN 

380 1=1+1 

890 B--=PEEK ( I ) 

900 B*=BIN*<B) 

910 S=LEN<B*) : IFS<STHENs B*»"0 , t+B^s G 
OTO910 

920 M 1 - VAL ( " ?'.B " +M I D$ ( B$ ,3,3) ) 

930 M2=VAL ( " ?<B " +R I 6HT* ( B$ , 3 > ) 

940 M3= VAL ( " &B " +M I D$ ( Bs , 3 , 2 ) ) 

950 M4=VAL < "?íB"+MID$ (B$, 5, 1)) 

960 IN=VAL("S/.B"+LEFT*(B*,2> ) 

970 B3$-HEX$ ( B ) 

930 S-LEN ( B3* ) : I FS < 2THEN : B3*= " " +B3 
*: GGTO980 

990 IFB3*="00"THEN BEEP 

1000 RETURN 

1010 ' ARXIUS IX, I Y 

1020 IFH=1THENA*=A*+" ( IX+" : GOSUB440 
S AS=A$+" ) " 



DO 



1030 

A$=A 
1 040 
1 050 
1060 
1070 
1080 
1 090 

1 100 
1110 

1 1 20 
1 130 
1 140 
1 150 
1 160 
1170 
1 1 80 
1 190 
1200 
1210 
1220 
50 
1230 


1240 
550 
1 250 
50 
1260 
550 



IFH=3THENA*=A*+" < IY+" : GOSUB440 

$+" ) " 

RETURN 

' codi d'un bit 

IFIN=0THEN: GOSUB 1 1 10 
I F I N= 1 THEN : GOSUB 1720 
I F I N=2THEN : GOSUB 1 800 
IFIN=3THEN: GÜSUB 1920 
RETURN 

I F M2=0THEN : GÜSUB 1 200 : RETURN 
I F M2= 1 THEN : GÜSUB 1 380 : RETURN 
IF M2-2THEN: GOSUB 1 290 : RETURN 
I F M2=3THEN : GOSUB 1 41 : RETURN 
I F M2=4THEN : GOSUB 1 480 : RETURN 
IF M2=5THEN: GOSUB 1530: RETURN 
I F M2=6THEN : GOSUB 1 570 : RETURN 
I F M2-7THEN : GOSUB 1 620 : RETURN 
RETURN- 

I FM 1 =0THENA*= A*+ " ÑOR " 

IFM1 = 1THENA$-A*+"EX AF t ÁF' " 

IFM1=2THENA*--A*+"DJNZ " s G0SUB5 

IFM1=3THENA*=A*+» JR , " : G0SUB55 

IFM1=4THENA*=A*+ M JR NZ, ".-GOSUB 

IFM1=5THENA*=A*+"JR Z, " : G0SUB5 

IFM1=6THÉNA*=A*+"JR MC- GOSUB 



( DE ) , A " 
A, (DE) " 
( " : G0SUB46 



: G0SUB46 



1270 I FM 1 «7THENA*- A*+ " ú R C, " s GOSUBSi 
50 

1280 RETURN 

1290 IFM1=0THEN: A$~A$+"LD (BC),A" 
1300 IFM1 = 1THENA*=A$-+-"LD A, <BC>" 
1 3 1 I FM í =2THEN A*= A*+ " LD 
1320 IFM1==3THENA*=A*+"LD 
1 330 I FM 1 «4THENA**A*+ " LD 
0:A*=A*+" > , HL" 

1340 IFM1 =5THENA$= : A$-«- "LD HL, ("s 
B460: A$=A$+" ) " 
1 350 I FM i -6THENA*~A$H- " LD 
0:A*=A*+"> ,A" 

1360 IFM1=7THENA*=A*+"LD A,(":GÜSUB 
460: A$=A*+" ) " 
1370 RETURN 

1380 IFM4-0THEN: A*=A*+"LD " : G0SUB62 
01 GOSUB460 

1390 IFM4=1THEN: A*=A*+"ADD HL,":GOS 
UB620 

1400 RETURN 

1410 REM codi 00 011 

1420 IFM4=0THENA$=-A*+"INC " 
1430 IFM4^1THENA*=A$+"DEC " 
1440 GOSUB 620 



101 



110 



1 1 1 



1450 RETURN 
1460 RETURN 
1470 REM codi 00_ l! 
1480 A*=A*+"INC " 
1490 M5=M1 
1500 GOSUB 700 
1510 RETURN 
1520 REM codi 00. 
1530 A*=A*+"DEC ' 
1540 GOSUB 1490 
1550 RETURN 
1560 REM codi 00 
1570 A*=A*+"LD " 
1580 GOSUB 1490 
1590 A$=A$+" , " 
1600 GOSUB 440 
1610 RETURN 
1620 REM codi 00 
1 630 I FM 1 =0THEN : A*« A$ + " RLCA " 
1640 IFM1-=1THEN: A*=A*+ " RRCA " 
1 650 I FM 1 =2THEN : A*= A*+ " RLA " 
1 660 I FM 1 =3THEN : A*= A*+ » RRA " 
1670 IFM1=4THEN: A$=A*+"DAA" 
i 680 I FM 1 =5THEN : A*= A*+ " CPL " 
1690 IFM1=6THEN: A$=A$h-"SCF" 
1 700 I FM 1 =7THEN : A*= A*+ " CCF 
1710 RETURN 

1720 REM codi 01 

1730 A$=A*+"LD " 
1740 M5=M1 
1750 GOSUB 700 
1760 A*=A*+" , " 
1770 M5=M2 
1780 GOSUB 700 
1790 RETURN 
1800 REM codi 10_ 

1810 IFM1=0THEN: AÍ=A*+"ADD A," 
1820 IFM1-1THEN: A$=A$+ " ADC A," 
1830 IFM1=2THEN: A*=A*+"SUB " 
1840 IFM1=3THEN: A$=A*H "SBC A," 
1850 IFM1=4THEN: A*=A*+"AND " 
1860 I FM 1 =5THEN : A$=A$+ " XOR " 
1870 I FM 1 =6THEN : A$=A$+ " OR " 
1880 I FM 1 =7THEN : A$--A$+ " CP " 
1890 M5=M2 
1900 GOSUB 700 
1910 RETURN 
1920 REM Codi 11 

—————— 

1930 IFM2=0THEN:A*=A*+"RET ": 
90: RETURN 

1 940 I FM2= 1 THEN : GOSUB2020 : RETURN 
1 950 I FM2=2THEN : G0SUB2 110: RETURN 
1 960 I FM2=3THEN s G0SUB2 1 70 : RETURN 
1 970 I FM2-4THEN : GOSUB2260 : RETURN 
1 980 I FM2=5THEN : GOSUB2320 : RETURN 



A$^A*+" 



010 



1990 IFM2-6THEN: GÜSUB2370 : RETURN 
2000 IFM2-7THEN: GO5UB2420: RETURN 
2010 RETURN 
2020 REM CDdi 11__„001 

2030 IFM4=0ANDM3=3THENA*=A*+"POP AF 

RETURN 
2040 IF M4»0 AND M3<>3 
POP ":G03UB 620: RETURN 
2050 I FM3=0THENA*»A*+ " f 
2060 I FM3= 1 THEN A*= A*+ " EX X " 
2070 IFM3=2THENA*=A*+"JP (HL)" 
2080 IFM3=3THENA$=A*+"LD SP,HL M 
2090 RETURN 
2100 REM codi 11. 
2110 A*=A*+"JP " 
2120 GOSUB 790 
2130 A*=A*+" , " 
2140 GOSUB 460 
2150 RETURN 
2160 REM codi 11 011 

2170 IFM1-0THEN: Á*=A*+ ,, JP " : G0SUB46 


2180 T.FM1=2THEN: A*=A*+"OUT ( " r GOSUB 

440: A*=A*+" ) , A" 
2190 IFMl«3THENs A**A** U IN A, <":GQSU 
B 440: A*=A*+" ) " 

2200 I FM 1 =4THEN : A*= A*+ "EX ( SP ) , HL " 
2210 IFM1-5THEN: A$~-AS-t- "EX DE „ HL " 
2220 IFM1=6THEN: A*=A*+"D1 " 
2230 IFM1=7THEN: A*=A*+"E1 " 
2240 RETURN 

2250 REM codi U_ 100 
2260 A*=A*+"CALL " 
2270 GOSUB 790 
2280 A$=A*+", " 
2290 GOSUB 460 
2300 RETURN 

2310 REM codi 11 101 

2320 IF M4=0ANDM3~3THEN : A$~A$->- " PUSH 

AF": RETURN 
2330 IF M4=0THENA*=A*+ ,, PUSH ": GOSUB 

620: RETURN 
2340 IF M4= : 1 ANDM3=0THEN A$~ A$+ " CALL 
": GOSUB 460 
2350 RETURN 

2360 REM codi 11 110 

2370 GOSUB 1800 
2380 Bl=LEN(A*>-4 
2390 A*=LEFT*(A$,B1> 
2400 GOSUB 440 
2410 RETURN 

2420 REM codi 11 111 

2430 I FM 1 -0THEN : A*=A*+ " 0h " 
2440 I FM 1 - 1THEN : A*«A«* " 8h " 
2450 I FM 1 -2THEN : A*- A*-*- " 1 0h " 



2460 I FM 1 --3THEN : A*=A*+ " 1 8h " 

2470 IFM1=4THEN: A$=A$+"20h" 

2480 IFM1=5THEN: A*=A*+"28h" 

2490 IFM1=6THEN: A$~A$+"30h " 

2500 I FM 1 =7THEN : A*=A*+ " 38h " 

2510 RETURN 

2520 REM CB+_ . dos bits 

2530 GOSUB 880 

2540 IF IN=0THEN: GOSUB2600 

2550 IF IN=1THEN:GOSUB2700 

2560 IF IN=2THEN: GOSUB2740 

2570 IF IN=3THEN:GOSUB2770 

2580 RETURN 

2590 REM codi 11 111 

2600 IFM1=0THEN: AÍ=A*+"RLC" 

2610 I FM 1 - 1 THEN : A*= A* + " RRC » 

2620 I FM 1 ~2THEN : A$^- A*+ " RLh " 

2630 I FM 1 «3THEN : A$«A*+ " RRh " 

2640 IFM1.--4THEN: A*=A*+ "SLA " 

2650 I FM 1 =5THEN : A*-=A* + " SRA " 

2660 IFM1~6THEN: A1">~A$h- " 

2670 I FM 1 = 7THEN : A*~A*+ " SRL " 

2680 IF H-0THENM5-M2:GOSUB700 

26°0 RETURN 

2700 A*=A*+"'BIT " 

A*?sA*+STR* (MI ) •+•", " 
UB 2680 

i IPM 




IF 
IF 
IF 
IF 



2 



A*«A*+"RES " 
GOSUB 2710 
2760 RETURN 
2770 A*=*A*4"SET " 
GOSUB 2710 
RETURN 

H=l : GOSUB880 
IF B==&HCBTHEN: GOSUB 3090 
IN-0THEN: GOSUB2B70 
I N= 1 THEN r. GOSUB2960 
IN-2THEN: GOSUB3030 . 
IN=3THEN: GOSUB3060 
RETURN 
GOSUB 1110 
Y*="HL" 

L-INSTR ( 1 , A$, Y*) 
Ll «LENCA*) :L1=L1-L-1 
I FH= 1 ANDL 1 >0THEN : A$=LEFT$ ( A* , L 
- 1 ) + " I X " +R I GHT$ ( A* , L 1 ) 

2920 I FH= 1 ANDL 1 < =0THEN A$~LEFT$ < A* , 
L-1)+"IX" 

2930 I FH=3 ANDL 1 >0ANDL >0THEN : A*~LEFT 
* (A*. L-l ) •+ " IY"+RIGHT* (A*, Ll ) 
2940 IFH=3ANDLK=0THEN A*=LEFT*<A*, 
L-l) +"IY" 
2950 RETURN 
2960 GOSUB 1 



2780 
2790 
2800 
2810 
2320 
2830 
2840 
2350 
2860 
2870 
2380 
890 
2900 
2910 




2980 L= I NSTR ( 1 , A* , Y* ) 
2990 A1*=A*:L1=LEÑ<A*> :L1=L1-L- 
3000 I FL 1 =< 0THEN : A$=LEFT$ ( A$ , L- 
ÜSUB1020 

30 1 I FL 1 >0THEN : A*»LEFT* C A*, L-'l X a 
SUBI 020: A*=A*+RIGHT* (Al*, Ll ) 
3020 RETURN 
3030 GÜSUB 1800 
3040 GOSUB 2970 
3050 RETURN 
3060 GÜSUB 1920 
3070 GOSUB2880 
3080 RETURN 
3090 GGSUB880 
3100 GOSUB 2540 
3110 GOSUB 2970 
3120 RETURN 

3130 REM CODI ED+01 000 

3140 GOSUB 880 
3150 IF IN=1THEN:GOSUB3190 
3160 IF IN=2THEN:GOSUB3660 
3170 RETURN 

3180 REM Codi ED+00 

3190 IFM2-0THEN: GOSUB3230: RETURN 
3200 I FM2= 1 THEN : GOSUB3330 : RETURN 
32 1 I FM2=2THEN : GOSUB3370 : RETURN 
3220 IFM2=3THEN: GOSUB3430: RETURN 
3230 IFM2~4THEN: GOSUB3480: RETURN 
3240 IFM2-5THEN: GOSUB3510: RETURN 
3250 IFM2-6THEN: GOSUB3550: RETURN 
3260 
3270 
3280 
3290 
3300 
3310 
33 



r 20 
3330 
3340 
3350 
3360 
3370 
3380 
3390 
3400 
34 1 
3420 
3430 
3440 



IFM2-7THEN: GOSUB3600: RETURN 
RETURN 

A*=A*+"IN " 
GOSUB 700 
A*=A*+" , (C) 11 
RETURN 

REM CODI ED+01 001 

A*=A*+"GUT <C>," 
GOSUB 700 
RETURN 

REM codi ED+01 010 

IFM4=0THENA$=A*+"SBC " 
IFM4=1THENA*=A$+"ADC " 
A*=A$+"HL, " 
GOSUB 620 
RETURN 

REM codi ED+01 011 

A*=A*+"LD " 

IFM4=1THEN: GOSUB620: A*«A*+ M , í " 
: GOSUB 460 : A*=A*+ » ) " 

3450 IFM4==0THEN: A*=A*+" <": GOSUB 460 
:A$=A*+") , GOSUB 620 
3460 RETURN 

3470 REM codu ED+01 100 



IF M1=0THENA*=A*- 
RETURN 

REM codu ED+01, 101 

IF M 1 =0THENA$- A$+ " RETN " 
IF M1 : =1THENA$~A$+"RETI " 
RETURN 

REM codi ED+01 110 

IF M1=0THENA*=A*+" IM0" 
IF M1=2THENA*=A*+" IM1 " 
IF M1=3THENA*=A*+" IM2" 
RETURN 

REM codi ED+01. _ 111 

IF M1= : 0THENA$=AÍ+"LD I,A" 
IF M1=2THENA$=A$+ "LD A, I" 
IF M1=4THENA$~A$+"RRD" 
IF M1=5THEMA*=A$+"RLD" 
RETURN 

REM codi ED+10 

IF M1=4THENA$=A*+' T LD" 
IF M1=5THENA*=A*+"CP" 
I F MI =6THENA*= A*+ " I N " 
IF M1=7THENA*=A*+ ,, ÜUT H 
RETURN 
RETURN 

IF M1=4THENA*=A*+ ,, I M 
IF M1=5THENA*=A*+"D" 
IF M1=6THENA*=A*+" IR" 
IF M1=7THENA$=A$+"DR" 
RETURN 

CLS: INPUT"modu.l " ; M 
CLS: L0CATE5, 10: INPUT "el eos d 
el modul";H* 

3790 CLS : PR I NTB* : FOR X= 1 T03 : FORN=0TO 
255 
3800 
3310 
3820 
3830 
3840 
3850 



3530 
3540 
3550 
3560 
3570 
3580 
3590 
3600 
3610 
3620 
3630 
3640 
3650 
3660 
3670 
3680 
3690 
3700 
3710 
3720 
3730 
3740 
3750 
3760 
3770 
3780 



POKE60000 ! , N 
1=60000! :GOSUB320 
R=LEN(A$> 
R-R-15 

A*=RIGHT*(A*,R) 
A1$=LEFT*(A*,M) 
RINTA*; N 
3860 NEXTN, X 
3870 END 
3880 » 



IFA1*=H*THEN:P 







TEST DE LISTADO 



10 



58 



90 



58 



30 -- 58 
40 - 58 
50 - 58 
60 - 58 
70 - 58 
- 58 



1 10 
120 
130 
140 
1 50 
160 



58 
58 
58 
58 
58 
58 



1 70 
180 
190 
200 
210 
220 
230 
240 



58 
58 
58 
58 
58 
58 
58 
58 




^ w i is UuKni ¡i u 









■ 


















250 


- 58 


730 


- 58 


1310 


-170 


1840 




83 


2370 


-170 


2900 


- 24 


260 


- 58 


790 


-249 


1 320 


-171 


1 850 




226 


2380 


-176 


2910 


- 7 


270 


— 58 


800 


-205 


1 330 


- 64 


1860 




9 


2390 


- 41 


2920 


-237 


280 


- 79 


810 


-206 


1340 


- 65 


1870 




178 


2400 


- 84 


2930 


- 75 


290 


.... x 95 


820 


-153 


1350 


-239 


1380 


- 


165 


2410 


-142 


2940 


-240 


300 


■C '_' -C- 


830 


-115 


1360 


-240 


1 890 




240 


2420 


- 


2950 


-142 


310 


-205 


840 


-219 


1370 


-142 


1900 




89 


2430 


-163 


2960 


- 89 


320 


-108 


850 


-142 


1380 


~ 1 3 1 


1910 


- 


142 


2440 


-172 


2970 


-149 


330 


- 11 


860 


- 91 


1 390 


-219 


1920 




} 


2450 


-214 


2980 


-189 


340 


- 1 20 


870 


- 58 


1400 


-142 


1930 




173 


2460 


-223 


2990 


- 62 


350 


-147 


880 


- 1 32 


1 4 1 


- 


1940 




109 


2470 


-217 


3000 


-230 


360 


- 165 


890 


- 97 


1420 


-174 


1 950 




201 


2480 


-226 


3010 


-234 


370 


-181 


900 


-132 


1 430 


-161 


1960 




6 


2490 


-220 


3020 


-142 


380 


-197 


910 


- 65 


1440 


— 9 


1 970 




97 


2500 


_'■>'-> 9 


3030 


-170 


390 


-195 


920 


-167 


1 450 


-142 


1 980 




159 


25 1 


-142 


3040 


- 64 


400 


-226 


930 


-103 


1460 


-142 


1 990 




210 


2520 


- 


3050 


-142 


4- 1 


-238 


940 


-163 


1470 


- 


2000 




5 


2530 


_ 14 


3060 


- 34 


420 


-121 


950 


-170 


1480 


-200 


2010 




142 


2540 




3070 


-230 


430 


-135 


960 


-125 


1 490 


-239 


2020 







2550 


-104 


3080 


-142 


440 


-192 


970 


- 1 3 1 


1 500 


- 89 


2030 


- 


139 


2560 


-145 


3090 


- 14 


450 


- 76 


980 


- 26 


1510 


-142 


2040 


- 


54 


2570 


-176 


3 1 00 


-144 


460 


-188 


990 


- 31 


1520 


- 


2050 


-i 


190 


2580 


-142 


3110 


- 64 


470 


-188 


1 000 


-142 


1 530 


-186 


2060 




201 


2590 


- 


3 1 20 


-142 


480 


- 1 20 


1 10 


- 58 


1540 


-114 


2070 




84 


2600 


-236 


3130 


- 


490 


-138 


1020 


-111 


1550 


- 142 


2080 




201 


2610 


-243 


3140 


- 14 


500 


- 28 


1030 


-114 


1560 


- 


2090 




142 


2620 


- 19 


3150 


- 34 


510 


-200 


1040 


-142 


1570 


-126 


2100 


- 





2630 


- 26 


3 1 60 


~ 45 


520 


-166 


1050 


- 58 


1580 


-114 


2110 




136 


2640 


-239 


3170 


-142 


530 


—229 


1060 


- 43 


1590 


- 26 


2120 


- 


180 


2650 


-246 


3180 


- 


540 


-142 


1070 


-144 


1600 


- 84 


2130 


- 


26 


2660 


- 17 


3190 


- 93 


550 


-132 


1080 


-226 


1610 


-142 


2140 


- 


104 


2670 


- 3 


3200 


-145 


560 


- 97 


1090 


- 91 


1620 


- 


2150 


- 


142 


2630 


- 48 


3210 


-186 


570 


- 165 


1100 


-142 


1 630 


- 45 


2160 


- 





2690 


-142 


3220 


-247 


580 




1110 


- 53 


1640 


- 52 


2170 


- 


71 


2700 


-205 


3230 


- 42 


590 


- 16 


1 1 20 


-235 


1 650 


-236 


2180 


- 


121 


2710 


- 1 08 


3240 


- 73 


600 


-142 


1 130 


-146 


1660 


-243 


2190 


- 


25 


2720 


- 29 


3250 


-114 


610 


- 58 


1140 


- 11 


1670 


-213 


2200 


- 


96 


2730 


-142 


3260 


-166 


620 


- 68 


1 150 


- 82 


1 680 


-239 


2210 


- 


246 


2740 


-216 


3270 


-142 


630 


-209 


1 160 


-133 


1690 


-237 


2220 


— 


134 


2750 


- 59 


3280 


-133 


640 


-153 


1 170 


-175 


1700 


-188 


2230 


— 


136 


2760 


-142 


3290 


- 89 


650 


-117 


1 180 


-226 


1710 


-142 


2240 


- 


142 


2770 


-218 


3300 


-174 


660 


-219 


1 190 


-142 


1720 


- 


2250 


- 





2780 


- 59 


3310 


-142 


670 


-142 


1 200 


-190 


1730 


-126 


2260 


- 


10 


2790 


-142 


3320 


- 


680 


-171 


1210 


-208 


1740 


-239 


2270 


- 


1 80 


2800 


-145 


3330 


-166 


690 


- 58 


1 220 


- 6 


1750 


- 89 


2280 




26 


2810 


-147 


3340 


- 89 


700 


— 1 J7 


1 230 


-153 


1760 


~ 26 


2290 


— 


104 


2820 


- 18 


3350 


-142 


710 




1240 


- 66 


1770 


-240 


2300 




142 


2830 


-109 


3360 


- 


720 


-206 


1250 


-245 


1 780 


--■ 89 


2310 


— 





2840 


- 1 80 


3370 


-172 


730 


- 60 


1260 


- 45 


1790 


-142 


2320 




22 


2850 


-211 


3380 


-157 


740 


-119 


1 270 


—224 


1 800 


- 


2330 




31 


2860 


-142 


3390 


-174 


750 


-219 


1280 


-142 


1810 


- 65 


2340 




9 


2870 


-245 


3400 


- 9 


760 


-142 


1 290 


■—'~> r 7 r ? 


1820 


- 65 


2350 




142 


2880 


- 68 


34 1 


-142 


770 


- 52 


1300 


-165 


1830 


-247 


2360 







2890 


-1B9 


3420 


- 
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3430 


-126 


3440 


-153 


3450 


-152 


3460 


-142 


3470 


- 


3480 


-171 


3490 


-142 


3500 


- 


35 1 


- 10 


3520 


- 6 


3530 


-142 


3540 


- 


3550 


-151 


3560 


-154 


3570 


-156 


3580 


-142 


3590 


- 


•-•60 fe) 


- 23 


-•6 1 




-•620 


- 139 


3630 


- 134 


3640 


-142 


3650 


- 


3660 


-101 


3670 


- 105 


3680 


-1 10 


3690 


-208 


3700 


-142 


3710 


... 1 42 


3720 


- 30 


3730 


- 26 


3740 


-114 


3750 


~1 10 


3760 


-142 


3770 


—i cr 

— /O 


3780 


- 34 


3790 


-195 


3800 


- 90 


3810 


-250 


3320 


-136 


3830 


-163 


3840 


- 9 


3850 


-125 


3860 


~ 35 


3S70 


-129 


3880 


- 58 



TOTAL: 
45943 



LA LL 



Por Joaquín López 

Damos inicio a una nueva sección 
orientada al aprendizaje de un método 
de programación racional. Buscando 
nombres para ella, surgió el inevitable 
«COMO SE PROGRAMA UN JUE- 
GO». Bajo epígrafes como éste suelen 
esconderse secciones que explican la 
forma de definir sprites o de hacer 
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que aparezca un disparo láser y su es- 
tela se borre posteriormente. Cosas 
como estas se aprenden a las pocas 
horas de sentarse ante la máquina, por 
lo que no es aconsejable aburrir a los 
lectores con temas ya superados. 

CALL pretende ser algo útil e intere- 
sante, que os aclare dudas y os trace 
lina línea a seguir. Lo que aquí se ex- 
ponga, será fruto de la experiencia y 
de una clara convicción de que el ar- 
duo camino de la programación puede 
aliviarse evitando caer en errores, por 
lo demás, muy comunes. 

Ante todo, vaya por delante que 
cada programador suele tener un estilo 
característico y lo que a unos les pue- 
de parecer ortodoxo a otros no. De 
cualquier forma, aquí se intentarán ex- 
poner los temas de un modo claro. 
Ahora bien, si alguien pretende encon- 
trar la perfección en estas páginas 
acabará decepcionado. Por contra, se 
presumirá que el lector cuenta con una 
buena base previa, en otras palabras: 
es capaz de construir programas en 
BASIC que funcionan y tiene, como 
mínimo, nociones de código máquina. 



El programador sabe que es impen- 
sable trabajar sin tener una buena co- 
lección de rutinas de las más variadas. 
A través de estas páginas tendréis la 
oportunidad de reunir muchas de és- 
tas, que si bien son de poca utilidad in- 
dividualmente, resultan, como ya he di- 
cho, imprescindibles en su conjunto. 
Tened en cuenta que es posible que 
no dispongáis siempre de la rutina ne- 
cesaria, pero no cabe duda que es 
más cómodo adaptar una parecida que 
escribirla completamente. 

En éste, el primer capítulo, se ex- 
pondrá muy brevemente el funciona- 
miento de los ORDINOGRAMAS y se 
entrará propiamente en tema desarro- 
llando una rutina capaz de duplicar 
horizontal y verticalmente cualquier 
dibujo o carácter que aparezca en la 
pantalla. 

Ya he apuntado que lo que aqu í se tra- 
ta será fruto de la experiencia y ella me 
dice que los ORDINOGRAMAS sólo son 
útiles si no se cae en la trampa de ser es- 
clavos de ellos. Así pues, construiremos 
un ORDINOGRAMA muy detallado 
cuando el problema lo merezca (típica- 
mente cuando haya un gran número de 
condiciones a comprobar), en los de- 
más casos nos limitaremos a esbozar 
un diagramé de fk 
tico. 



L08 ORDINOGRAMAS Y SU 
SIMBOLOGIA 

Cualquier instrucción de cualquier 
lenguaje puede ser representada con 
la ayuda de los ORDINOGRAMAS. En 
síntesis, se trata de inscribir un texto 
en una figura geométrica (tal como un 
rombo, un rectángulo, un círculo, etc..) 
que representarán sentencias, condi- 
ciones, saltos, asignaciones, paradas, 
etc.. No obstante, resulta curioso ob- 
servar como existe un desacuerdo ge- 
neral en lo tocante a los símbolos de 
los ORDINOGRAMAS. Nosotros eludi- 
remos esto fijando ahora los símbolos 
y su significado. En principio, emplea- 
remos estas figuras: 



ASIGNACION 



Un rectángulo representará una sen- 
tencia o una asignación. 




Un rombo indicará que se va a com- 
probar si se cumple o no una condi- 
ción. Si el texto es muy largo puede, 
alternativamente, emplearse un polígo- 
no con dos lados horizontales largos y 
otros cuatro más cortos y de la misma 
longitud. 



^STOP^ 



Un círculo servirá para señalar la de- 
tención del programa o un salto a una 
parte importante del mismo. 




Un trapecio servirá para indicar que 
el texto o las variables encerradas en 
él serán impresas en la pantalla. 




Un pequeño triángulo con la base in- 
vertida señalará el inicio de la ejecu- 
ción del programa. 




Las líneas, tanto si acaban en una 
punta de flecha como si no, indicarán 
el camino que deberá seguir la ejecu- 
ción del programa. 



^ INPUT 



Un rectángulo con los lados peque- 
ños redondeados indicará que se debe 
leer una variable con un INPUT o una 
dirección de memoria de un puntero. 

EL ERROR MAS COMUN 

La mejor forma de perder gran canti- 
dad de tiempo en el desarrollo y en la 
ejecución, derrochar memoria y acabar 
con un programa lleno de gusanos es, 
sin duda, sentarse ante el ordenador e 
intentar escribir un programa sin haber 
solucionado previamente el algoritmo 
correspondiente. 

En efecto, os puedo asegurar que es 
virtualmente imposible desarrollar un 
programa digno sin haber llenado una 
buena cantidad de cuartillas resolviendo 
los problemas que, de seguro, aparece- 
rán a la hora de pulsar las teclas. No pre- 
tendo que escribáis en el papel todas y 
cada una de las líneas que luego apare- 
cerán en el programa terminado, pero, 
como mínimo, deberéis hacer un esbo- 
zo extenso y que no ofrezca dudas. Si- 
guiendo este método, obtendréis un 
programa claro y estructurado que os 
hará más fácil su depuración y os permi- 
tirá ampliarlo o modificarlo, si las cir- 
cunstancias los requieren, sin demasia- 
das dificultades. Los programas confu- 
sos y poco estructurados sólo pueden 
justificarse en los casos en los que la ve- 
locidad de ejecución y la cantidad de 
memoria a emplear son críticas (por 
ejemplo: la ROM de tu ordenador), y re- 
sulta curioso observar como en estos 
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casos son 
les quienes los i 



profesiona- 



AMPUACION DE DIBUJOS T 
CARACTERES 



Veamos cómo se puede hacer que 
una parte de la pantalla se amplíe. Mi 
objetivo es, empero, que intentéis cons- 
truir una rutina que realice esta función, 
contando sólo con unas cuantas indica- 
ciones y sin mirar el resultado final en 
estas páginas, hasta que tengáis algo 
vuestro que funcione. 

Ante todo hay que estimar la magni- 
tud del problema. La pantalla, sin contar 
la zona destinada al color, esta com- 
puesta por una red de 1 92 x 256 pun- 
tos, lo que hace un total de 49152. Con 
esta cantidad, es obvio que serán nece- 
sarios unos cientos de miles de pasos 
para tratarlos todos. El BASIC no es pre- 
cisamente el campeón de la velocidad, 
por lo que se hará necesario recurrir al 
ASSEMBLER. Sin embargo, os aconse- 
jo a los que no dominéis este lenguaje 
que intentéis hacerlo, después de todo, 
en BASIC. El resultado no será muy bri- 
llante, pero es seguro que os servirá de 
mucha ayuda para comprender el fun- 
cionamiento de la rutina en ASSEM- 
BLER. 

El siguiente paso es determinar las 
condiciones de entrada y de salida. Está 
claro que si una zona de la pantalla va a 
ser ampliada horizontal y verticalmente 
ocupará cuatro veces su extensión origi- 
nal. 

Convengamos pues que la zona a 
ampliar será la central. Un cálculo rápi- 
do nos indicará que el vértice superior 
izquierdo de ésta se encontrará situado 
en las coordenadas 64,48 (ver figura 1 ). 
Asimismo, obtendremos fácilmente las 
dimensiones del rectángulo a tratar, que 
son 1 28 x 96 (o lo que es lo mismo: 1 6 x 
1 2 caracteres de pantalla de la forma 8 
x 8). 

El puntero de salida, ya con los puntos 
ampliados, señalará, como no, al origen 
de la pantalla. Como sabéis, el VDP ma- 
neja la zona de imagen empezando por 
la esquina superior izquierda y bajando 
una línea cada vez hasta llegar a la octa- 
va (ver figura 2), momento en el que la 
posición vertical es decrementada en 
ocho unidades y la horizontal es incre- 
mentada en uno. Cuando se alcanza el 
final de una línea (32 cuadratines de 8 x 
8 ó 256 pixels), la siguiente dirección se 
refiere a la coordenada horizontal cero, 
mientras que se añade uno a la vertical. 
El meollo de la cuestión es observar que 
la primera línea de un carácter difiere de 
la primera línea del que está debajo en 
256 posiciones. Puesto que cada cua- 
dratín de la zona de origen ocupará die- 
ciséis pixels en vertical, deberemos in- 
crementar el puntero de destino en 256 
unidades, cada vez que se hayan trata- 
do las cuatro primeras líneas de un ca- 



rácter, y habremos de reponerlo a su va- 
lor inicial, cuando hayamos concluido 
las cuatro líneas inferiores del cuadratín. 

Todo lo expuesto anteriormente con- 
lleva la necesidad de emplear un buffer 
temporal para almacenar la nueva ima- 
gen, puesto que al ir tratando puntos és- 
tos solaparían a los originales y acaba- 



ORDINOGRAMA 



riamos ampliando pixels ya considera- 
dos, con lo que el resultado sería dispa- 
ratado. 

Llegado a este punto, os aconsejo 
que intentéis construir vosotros mismo 
la rutina. Si no os veis con fuerzas, 
echad primero un vistazo al ORDINO- 
GRAMA: 








AJUSTA LOS PUNTEROS DE 
ESCRITURA Y DE LECTURA. 








PREPARA UN BUCLE CONTA- 
DOR DE LAS LINEAS DE 
PANTALLA. 








" 1 


PREPARA UN BUCLE CONTA- 
DOR DE COLUMNAS. 






- 1 




PREPARA UN BUCLE CONTA- 
DOR DE LINEAS DE CARAC- 
TER. 






: 1 








LEE EL VALOR DE LA VRAM 
SEÑALADO POR EL PUNTERO 
DE LECTURA. 



LEE LOS CUATRO ULTIMOS 
BITS PARA DUPLICARLOS. 



LLAMA A LA RUTINA DE 
PLICACION (BIT). 
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PON EL RESULTADO EN LAS 
DIRECCIONES QUE INDICA 
EL PUNTERO OE ESCRITURA. 



LEE LOS CUATRO PRIMEROS 
BITS PARA DUPLICARLOS. 



LLAMA A LA RUTINA DE 
PLICACION (BIT). 



PON EL RESULTADO EN LAS 
DIRECCIONES QUE INDICA 
EL PUNTERO DE ESCRITURA 



INCREMENTA LOS PUNTEROS. 




EL PUNTERO 
DE ESCRITURA 
ESTA EN LA LI- 
NEA SUPERIOR? 





SI 


HAS QUE EL PUNTERO DE 
ESCRITURA SEnALE A LA 
LINEA INFERIOR. 




HAS QUE EL PUNTERO DE 
ESCRITURA SEÑALE A LA 
LINEA SUPERIOR. 



256 



figura 1 













64,48 





















1 91 zona de ampliación 
figura 2 

El diagrama de flujo de la rutina es 
bastante explícito. No resultará difícil 
adaptarlo a cualquier lenguaje de pro- 
gramación. Sin embargo, nada como el 
ASSEMBLER. He aquí su listado: 




10 


VPEEK: 


EQU 


#4 A 


20 


RAMVRM: 


EQU 


#5C 


30 


BUFFER : 


EQU 


40000 


40 




ORG 


50000 


50 




LD 


IX, BUFFER 


60 




LD 


HL, 1600 


70 




LD 


B, 12 


80 


BUCLEO: 


PUSH 


BC 


90 




LD 


B,32 


100 


BUCLE 1: 


LD 


C,4 


110 


BUCLB2 : 


CALL 


VPEEK 


120 




PUSH 


AF 


130 




CALL 


BIT 


140 




LD 


< IX+8 > , A 


150 




LD 


(IX+95 , A 


160 




POP 


AF 


170 




SRL 


A 


180 




SRL 


A 


190 




SRL 


A 


200 




SRL 


A 


210 




CALL 


BIT 


220 




LD 


< IX+O) , A 


230 




LD 


( IX+1 ) , A 


240 




IHC 


HL 


250 




IIC 


IX 


260 




INC 


IX 


270 




DBC 


c 


280 




JR 


*Z, BUCLES 


290 




BIT 


O.B 


300 




LD 


DE, 248 


310 




JR 


Z.El 


320 




LD 


DE, -248 


330 


Bl: 


ADD 


IX, DE 


340 




DJFZ 


BUCLE 1 


350 




LD 


DE, 128 


360 




ADD 


HL, DE 



= 
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SI 


SITUA ADECUADAMENTE LOS 
PUNTEROS PARA QUE SEÑA- 
LEN A LA SIGUIENTE LINEA. 









— I 



TRANSFIERE EL CONTENIDO 
DEL BUFFER A LA VRAM. 



370 
380 
390 
4Q0 
410 
420 
430 
440 
450 

460 BIT: 
470 

4S0 BUCLE3: 

490 

500 

510 

520 

530 B2: 

540 

550 



LD 

ADD 

POP 

DJHZ 

LD 

LD 

LD 

CALL 

RBT 

LD 

LD 

SRL 

SRL 

SRL 

JR 

OR 

DBC 

JR 

RBT 



DB, 256 
IX, DE 
BC 

BUCLBO 

BC.6144 

DB.O 

HL, BUFFBR 
RAMVRM 

B,4 
D, A 
A 
A 

D 

FC.B2 

192 

B 

HZ.BUCLE3 



Si posees un ensamblador, teclea el 
listado ASSEMBLER tal como aparece. 
De no ser así, cómprate uno rápidamen- 
te, pero antes emplea este pequeño car- 
gador de I íneas DATA para introducir los 
códigos en la memoria: 

10 FORX=50000!T050108! 
20 READVS: POKEX, VAL<"&H"+V$> 
30 S=S+ VAL < » &H" +V$ ) : HEXT 
40 IFSO 10855THEHCLS: BEEP: PRUT-HAY 
UN ERROR 

50 DATADD, 21, 40, 9C, 21, 40, 6, 6, C, C5, 6 
, 20, E, 4, CD, 4A, O, F5, CD, AC, C3 , DD, 77, 8 
, DD.77, 9, Fl, CB, 3F, CB, 3F, CB, 3F, CB, 3F 
, CD, AC, C3, DD, 77, 0, DD, 77, 1, 23, DD, 23, 
DD,23,D,20,D9,CBi40, 11, F8. 0, 28, 3, 11 
,8, FF, DD, 19, 10, C9, 11,80, 0, 19, 11, 0, 1 
, DD, 19, Cl, 10, BA, 1, 0, 18, 11 
60 DATAO, 0, 21, 40, 9C, CD, 5C, 0, C9, 1E, 4 
, 57, CB, 3F, CB, 3F, CB, 3A, 30, 2, F6, CO, ID 
,20,F3,C9 

Ahora ya estamos en condiciones de 
probar la rutina con un pequeño gestor 
escrito con unas cuantas líneas BASIC: 

10 OPEN"GRP: " ASI : DEFUSR=50000 ! 
20 SCREEN2 : COLOR 15,1,15: CLS 
30 PRESETC105, 88) : PRIÑT#1, "PRU 
EBA" : GOSUB60 

40 PRESET < 12 1 , 97 ) : PR I NT#1 , " DE" 
: GOSUB60 

50 PRESET (97, 92) : PRINT#1, "AMPL 
I ACION" : GOSUB60: GOSUB60: END 
60 FORX=0TO4: A=USR<0) : NEXT 
70 RETURN 

Si todo sale como está previsto, po- 
dréis comprobar la extraña sensación 
de movimiento que dan las letras al ser 
ampliadas sucesivamente. Curiosa- 
mente es la rutina BIT, de solo 1 7 bytes, 
la que realiza la mayor parte del trabajo, 
es decir: conseguir que los cuatro prime- 
ros bits del acumulador sean duplica- 
dos. Os recomiendo que la estudiéis de- 
tenidamente si no domináis las instruc- 
ciones de rotación y desplazamiento del 



LIMITACIONES 

Naturalmente una rutina que ocupa 
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1 08 bytes debe tener muchas restriccio- 
nes. Probad a cambiar la instrucción 
COLORI 5, 1, 15 de la línea veinte por 
COLORI 5, 1, 1 y corred el programa. 
¿Sorprendidos? Quizá no sepáis que el 
BASIC emplea el color transparente 
para completar más rápidamente el tra- 
zado de caracteres y dibujos. No obs- 
tante, el VDP asume que si la tinta y el 
fondo son transparentes debe pintar el 
color del borde. 

La rutina de ampliación únicamente 
considera la zona de imagen y despre- 
cia la de color. De cualquier forma, es 
muy sencillo tener presente el color. 
Una vez tratada cada posición, los pun- 
teros pueden ser incrementados en 
8192 unidades para leer la zona de atri- 



butos y duplicarla. Otra cuestión será la 
velocidad, que se verá reducida. 

Hablando de velocidad, si queréis que 
la rutina corra bastante más rápido co- 
piad primero el contenido de la VRAM 
en un buffer. Así sólo tendréis que referi- 
ros a las posiciones de este buffer, en lu- 
gar de acceder al VDP cada vez que es 
necesario leer un byte. El BIOS se co- 
munica con procesador de vídeo como 
si fuera un dispositivo de entrada/salida, 
con las demoras que ello supone. Por si 
esto fuera poco, el VDP tiene momentos 
en los que su ocupación no le permite 
atender a los requerimientos de la CPU. 
En fin, es mejor traer a la RAM de una 
sola vez todos los datos de la VRAM y 
resignarse a perder memoria, en " 



de una mayor velocidad de procese. 

CONCLUSIONES 

Desde aquí os emplazo a seguir el de- 
sarrollo de esta nueva sección. En los 
próximos capítulos tocaremos temas de 
los más variados, tales como algoritmos 
de uso frecuente, creación de perspecti- 
vas, efectos tridimensionales, scrolls de 
pantalla, movimientos animados, etcé- 
tera. 

Confío en que «CALL» servirá de ayu- 
da y resultará lo suficientemente ameno 
como para que intentéis resolver voso- 
tros mismos los problemas que se plan- 
teen en estas páginas. 
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SIIPBR MONITOR 

SD-26 PIONEER 

Este monitor Pioneer SD-26 presen- 
ta un innovador diseño modular y 
una pantalla de 26". Gracias a su 
arquitectura interior y la aplicación de los 
últimos logros en la alta tecnología este 
aparato puede desempeñar tanto funcio- 
nes de televisor como de monitor, ya que 
está preparado para recibir señales de 
gran potencia y dar como resultado imá- 
genes de alta resolución. 
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MITSUBISHI 

TA COMERCIALIZA EL MSX-8 

Dos modelos para elegir 

Mabel SJL, distribuidora oficial de 
Mitsubishi en España na lanza- 
do dos modelos de MSX, el ML- 
Gl y el ML-G3. Las diferencias no radican 
en su mayor o menor potencia sino en las 
opciones de uno y otro. El ML-G1 incluye 
un software gráfico, llamado Art Paper, 
mientras que el ML-G3 incluye un proce- 
sador de textos, hoja de cálculo, base de da- 
tos, gráficos, comunicaciones, como soft- 
ware y una salida serie estándar y una 
unidad de disco, con opción para una se- 
gunda. La compatibilidad con la primera 
generación es completa pudiendo traba- 
jar en uno y otro sin problemas en los cua- 
tro primeros modos de pantalla. 




MIDIVENTAMATIC 

Hay pronto en MSX 

Ventamatic es la primera tienda Hi- 
Tech de España y comercializa to- 
do tipo de instrumentos de alta 
tecnología musical. Como ya anunciamos 
oportunamente es el punto de venta de los 
ordenadores Yamaha en Barcelona (Cór- 
cega 89, Entio. 08029 Barcelona) y en tal 
condición se especializa en la aplicación 
del ordenador en el terreno musical. Al 
respecto, dispone de un importante pa- 
quete de software para distintas marcas 
de ordenadores y; según anuncia el mes 
próximo dispondrá de la interface MIDI 
MSX, indispensable para acoplar teclados 
musicales al ordenador. 
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MICRO FLOPPY DISK BRETE 

Especial para el ITress 



TT a unidad de disco SVI-787 ha sido 
• desarrollada especialmente para 
1 J el SVI-738 como segunda opción, 
ya que oomo sabemos el aparato incluye 
una. La SVI-787 emplea discos de 3,6" y 
360K de capacidad una vez formateado. 
Una característica que lo distingue es que 
el controlador y la 



cuentean en el mismo ordenador, con lo 
cual el tamaño y el cableado quedan muy 
reducidos. Este periférico puede emplear 
los sistemas operativos MSX-D08, CP/My 
emular en este último, el formato de algu- 
nas máquinas como Kaypro n, Osborne, 
Bondwell 12 y SVI-328. El precio aproxi- 




iTohru 

Moto-oka 

Masaru 

Kitsuregawa 
El ordenador 
de Quinta 
Generación 

El profesor Moto-oka 
es el director del proyecto 
de Quinta Generación 
en Japón 
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EL ORDENADOR 

DE QUIMA GENERACION 

Un Libro de anticipación 

La editorial Artel lia lanzado un libro 
sensacional sobre el proyecto in- 
formático de Quinta Generación en 
Japón. «El Ordenador de Quinta Genera- 
ción» , ba sido escrito por Tonru Moto-oka, 
director del proyecto de Quinta Genera- 
ción y Masaru Kitsuregawa. Se trata de un 
libro de gran autoridad sobre la materia y 
escrito con sobriedad. En él los autores ex- 
plican en qué consiste la Quinta Genera- 
ción de Ordenadores, cuál es el concepto fi- 
losófico que la sustenta. También dan 
cuenta de las limitaciones de las máqui- 
nas actuales y las dificultades básicas 
para alcanzar una máquina realmente in- 
teligente. 




FLOPPY DISK 

m-ooi SANIO 

Sanyo dispone de dos modelos de uni- 
dades de disco. Se trata de las unida- 
des MFD 001 y MFD 002, con posibi- 
lidad de entrada de 1 ó 2 dlskettes respec- 
tivamente de 51/4 pulgadas, con una capa- 
cidad de almacenamiento de 360K por dls- 
kette. No obstante su gran capacidad para 



el almacenaje de datos, la empresa Sanyo 
no lo comercializará por el momento en 
España, lo que no significa que sus apara- 
tos queden desasistidos. Uno de los aspec- 
tos más importantes del estándar es pre- 
cisamente su capacidad de comunicación 
con periféricos de cualquier otra marca. 




PERIFERICOS DTHADAI4 

Compañeros del XSZ 

La casa Dynadata, que comercializa 
en España el ordenador M8X DPC- 
200, cuenta con una importante se- 
rte de periféricos, entre los que destaca- 
mos en esta ocasión el Quick Disk Tritón, 
con capacidad de formateado de 102Kb 
(ambos lados), un Data Cassette y unjoys- 
tick a precios realmente interesantes. El 
Quick Disk cuesta aproximadamente 
32.700 pts., la grabadora de datos, 6.800 
pts. y el Joystick 1 .800 pts. 
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STAND DE AMOPOTO 
EN MFORKAT 86 



La empresa Arkofoto SA distribui- 
dora oficial de los productos Yan- 
jen, también estuvo en INFORMAT 
86 presentando periféricos y elementos 
informáticos para distintos ordenadores 
y especial para MSX. Entre todos ellos des- 
tacamos la gama de monitores de alta re- 
solución, la grabadora y cassettes vírge- 
nes y el Joycard digital de la marca Yanjen. 
Arkofoto se encuentra en Barcelona, en el 
P.° de Gracia 22, 2 y su teléfono es el (93) 
301 00 20. El télex es 51648. ~ 




— 

TABLETA GRAFICA 

Vü 0060 Philips 

Este periférico Philips permite la in- 
troducción directa de gráficos y 
movimiento de cursor. Dispone de 
conmutadores de acción, tanto en el lápiz 
como en la tableta, y de una resolución de 
286 x 286 pixels. Su conexión es total- 
mente directa con cualquier ordenador de 
la norma MSX. Este modelo VU0060 faci- 
lita la creación de gráficos mediante la uti- 
lización del lápiz óptico especial. La cone- 
xión de la tableta se efectúa a través del co- 
nectar de tipo D provisto de 9 clavijas que 
se emplea asimismo para la conexión del 
control manual, con el fin de dejar libres 
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los slots de ampliación. Para un mejor 
aprovechamiento de este periférico, se 
vende provisto de un completo manual de 
instrucciones. 



CURSO BASIC MSX EN VIDEO 

Sony-VideodidácticoSA 

Las empresas Sony y Videodidáctico, 
S A. comercializan un programa de 
enseñanza planificada de Basic- 
MSX, cuyo objetivo es el ofrecer en forma- 
to de vídeo un año de clases en los centros 
de enseñanza. La estructura del curso 
considera tres partes. La primera dedica- 
da al Basic propiamente dicho, que consta 
de 28 video-cassettes y enseña al alumno 
las técnicas de programación y el lengua- 
Je. La segunda parte está dedicada al Hard- 
ware y contiene 6 video-cassettes que ex- 
plican los componentes físicos de las má- 
quinas MSX. Por último, la tercera parte 
está dedicada al sistema operativo y se de- 
sarrolla en 6 video- cassettes que enseñan 
el conjunto del sistema operativo MSX 
compatible con MS-DOS, así como el acce- 
so a los distintos periféricos. 

Este curso se puede adquirir tanto en 
Sony España S_A_, Sabino de Arana 42, 
08028 Barcelona como en Vídeo Didácti- 
co, SA, Rafael Calvo 8, 28010 Madrid 
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COMIC BAXERY 

El panadero de Konami 



El «Comic Bakery» es unjuego de ha- 
bilidad para hacer frente a una se- 
rie de dificultades que se le presen- 
tan al personaje dentro de una panadería 
totalmente automatizada. Una de las difi- 
cultades son los mapaches que acosan al 
panadero desconectándole los distintos 
artefactos de la panadería impidiéndole 
una buena fabricación de pan, y hasta se lo 
comen cuando tienen la oportunidad. El 
formato es de un cartucho y su precio 
aproximado es de unas 6.300 pts. 




El 



INTERPACE RS-232C 

Toshiba HX-R700 

Este cartucho interface RS-232C, 
modelo HX-R700 de Toshiba es de 
gran utilidad para los ordenadores 
MSX y sobre todo para aquellos usuarios 
que quieran establecer comunicación, 
para información e intercambios de datos 
a través de la red pública de teléfonos. Esta 
unidad puede emplearse en consecuencia 
como acoplador acústico, resultando de 
gran versatilidad ya que su utilidad alcan- 
za para la conexión con otros periféricos. 






«SPECIAL OPERATIONS», «BOOGA - BOO», «SPLASH» y «TURMOIL» - Precio Venta 
Público recomendado: 2.495,— I.V.A. incluido. Disponibles en Galerías Preciados y en 
todos los establecimientos de Software, o directamente a MIND GAMES ESPAÑA, S.A.: 
Mariano Cubf, 4, entio. 1. a - 08006-BARCELONA - Tel. (93) 218 34 00 
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LOS CARTUCHOS DE KkmanA SON COMPATIBLES EN TODOS 
LOS ORDENADORES MSX DE LAS MARCAS: 



Sony, Toshiba, Cannon, Mitsubishi, Dynadata, Yashícs, Sanyo 

NatíonaJ Panasonic, PhíJíps. 



EL LENGUAJE PEDAGOGICO 



La firma IDEALOGIC, S A. , ha realizado una excelente 
tique para SONY, uno de los líderes del standard MSX. 
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Es posible que alguno de nuestros 
lectores no haya oído hablar de 
este interesantísimo lenguaje. 
Para ellos, vamos a decir en primer lu- 
gar que LOGO es un lenguaje de alto ni- 
vel, es decir, que es un lenguaje más 
próximo al lenguaje humano que al de la 
máquina. Todos los usuarios de la nor- 
ma MSX trabajan usualmente en BA- 
SIC, que como se sabe también es un 
lenguaje de alto nivel, pero existen va- 
rios otros lenguajes con estas caracte- 
rísticas como son ADA, COBOL, PAS- 
CAL, LISP... 

UN POCO DE HISTORIA 

En 1959, en el MIT (Massachussets 
Instituto of Technology) se desarrolló un 
lenguaje denominado LISP (List Pro- 
cessing) que como su nombre indica 
realiza principalmente tratamientos de 
listados, y que estaba orientado a las in- 
vestigaciones en el terreno de la inteli- 
gencia artificial. Un gran atractivo de 
este lenguaje es la recurrencia, que no 
es otra cosa que la posibilidad de utilizar 
procedimientos que pueden llamarse a 
sí mismos. 

En el mismo Instituto Tecnológico de 
Massachussets, diecisiete años más 
tarde, el profesor Seymour Papert inspi- 
rado en el LISP desarrolló la primera 
versión del LOGO. 

Hace algunos años; antes de la popu- 
larización de los ordenadores domésti- 
cos, no era frecuente el uso de monito- 
res de televisión. Por lo tanto, la comuni- 
cación con el ordenador se realizaba 
prioritariamente por el teclado y la im- 
presora. Paralelamente al desarrollo del 
LOGO y en el mismo MIT se concibió un 
robot gobernado por ordenador que se 
deslizaba por el suelo como una tortuga 
(de ahí su nombre) llevando en su parte 

Sosten o r un lápiz que podía subirse o 
ajarse a voluntad, y que en combina- 
ción con los movimientos que se le indi- 
caban, trazaba dibujos sobre el suelo. 



MUY PRONTO EN TU QUIOSCO 




La primera 
revista de la 
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El profesor Papert se sirvió de este ro- 
bot e incorporó los gráficos de la tortuga 
a su lenguaje; y con el transcurso del 
tiempo la tortuga pasó del suelo a la 
pantalla del monitor, lo que posibilitó el 
BOOM de este lenguaje. 

De todos modos, el tratamiento de 
gráficos en LOGO aunque sorprendente 
por su facilidad de manejo y su potencia 
operativa tan sólo son un aspecto de 
este lenguaje. Como muy bien indica el 
equipo del centro LOGO en el completí- 
simo manual que acompaña al progra- 
ma «la mayoría de los libros publicados 
hasta el momento recogen muy parcial- 
mente sus posibilidades, dando una vi- 
sión muy reduccionista y quedándose 
en niveles demasiado elementales de 
aplicación». 

Los gráficos de la tortuga son una par- 
te importante de LOGO, bien sea para 
los principiantes o bien para aplicacio- 
nes tridimensionales, pero tan sólo son 
uno de los múltiples ambientes del len- 
guaje. 

EL LENGUAJE DEL 
APRENDIZAJE 

Por encima de otras consideraciones, 
Seymour Papert es un pedagogo. Los 
planteamientos de los que partió para 
desarrollar el LOGO fueron la posibili- 
dad de que un lenguaje que permitiera el 
desarrollo del conocimiento de una ma- 
nera constructiva y sobre la base del 
descubrimiento. Para ello debía aunar 



la potencia operativa con la facilidad de 
manejo, características ambas que po- 
see LOGO. 

El LOGO es un lenguaje modular. 
Permite la construcción de módulos de 
programa que pueden ser parte de un 
programa más complejo, que a su vez 
sera un módulo de otro programa más 
complejo. Además de ello, es un lengua- 
je absolutamente interactivo y muy di- 
recto, lo que lo convierte en una herra- 
mienta de primer orden en la enseñanza 
asistida por ordenador. 

SONY LOGO MSX 

De esta filosofía, participa plenamen- 
te la versión de LOGO que nos ocupa. 
Como hemos mencionado anteriormen- 
te, esta versión -distribuida en cartucho 
ROM por SONY- es especialmente re- 
comendable para todos aquellos que 
deseen iniciarse en este lenguaje que 
además de poderse utilizar como auxi- 
liar de la enseñanza tiene un gran valor 
en sí mismo puesto que obliga al usua- 
rio a discurrir de una manera estructura- 
da. 

LOGO es esencialmente proceso de 
listas y de palabras (no olvidemos que 
su antecesor directo es el LISP) y el ra- 
zonamiento humano está basado en 
ideas, que se expresan como palabras 
organizadas con una finalidad determi- 
nada. Para ello, es importante que el 
conjunto de instrucciones de un lengua- 
je tengan sentido en la lengua habitual 



del usuario. Es ya un tópico el decir que 
los angloparlantes tienen ventaja sobre 
los no angloparlantes a la hora de traba- 
jar en BASIC, pues la sintaxis que utiliza 
este lenguaje está basada en el idioma 
INGLES. 

Afortunadamente esto no sucede con 
LOGO. El Ministerio de Educación publi- 
có a finales del año pasado una lista ho- 
mologada de las primitivas LOGO en 
castellano, y la versión que estamos co- 
mentando está íntegramente confeccio- 
nada en castellano. De tal modo, si no- 
sotros introducimos un nombre de pro- 
cedimiento incorrecto, LOGO nos dirá: 



NO SE COMO HACER PARA... 

Lo que evidentemente nos resultará 
más inteligible que «Subscript out of 
range" o cualquier otro de los mensajes 
de error a los que nos tiene acostumbra- 
dos el BASIC. 

Las instrucciones de LOGO son fun- 
damentalmente Comandos y Operacio- 
nes. Los nombres de algunos coman- 
dos son: LIMPIA, MODELO, RELLENA, 
RETROCEDE... y los de algunas opera- 
ciones RUMBO, VALORFORMA, TO- 
DOS... 

De entre estos comandos y operacio- 
nes, el LOGO SONY MSX posee un 
buen número de ellas para el tratamien- 
to de palabras y listas. Esto hace que 
muchas versiones parciales de LOGO 
que se ocupan exclusivamente del trata- 
miento de gráficos palidezcan a su lado. 
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PROGRAMA A 



PARA AGENDA 
BT • 

PONCURSOR [ ¿QUIERES ENTRAR O CONSULTAR DATOS ? ] 
ESCRIBE [PULSA 1 o 2 .] 
PONFONDO 3 
HAZ "SELEC LC 

SI :SELEC = 1 [BT ENTRAR ALTO] 

SI :SELEC = 2 [BT CONSULTAR ALTO] 

FIN 

PARA ENTRAR 
PONPOS [ 10 5] 

ESCRIBE [ ¿CUAL ES EL QUE DESEAS DAR A LA BASE ? ] 

PONPOS [11 5] 

HAZ "BASE LEELISTA 

SI VACIO? :BASE [ AGENDA ] 

BT PONCURSOR [2 2] 

ESCRIBE [ ESCRIBE EL NOMBRE SEGUIDO DEL TELEFONO 

PONESCRITURA ULTIMO :BASE 

ENTRAR.DATOS 

FIN 

PARA ENTRAR.DATOS 
HAZ "DATO LEELISTA 
SI VACIO? :DATO [ PONESCRITURA [] 

ALTO][ES :DATO ENTRAR.DATOS) 
FIN 

PARA CONSULTAR 
PONPOS [12 5] 

ESCRIBE [ ¿DE QUE BASE QUIERES CONSULTAR DATOS?l 

PONPOS [13 5] 

HAZ "BASE LEELISTA 

SI VACIO? :BASE [ALTO] 

ESCRIBE [ ¿QUE NOMBRE DESEAS CONSULTAR ? ] 
HAZ "NOMBRE LEELISTA 

SI VACIO? :NOMBRE [ ESCRIBE [ ESTE NOMBRE NO ES 

CORRECTO ] CONSULTAR ALTO ] 
BT 

PONLECTURA ULTIMO :BASE 
CONSULTAR.DATOS ULTIMO :NOMBRE 
FIN 

PARA CONSULTAR.DATOS :NOMBRE 
HAZ "DATO LEELISTA 

SI FINLEC? [ESCRIBE [NO POSEO ESTA INFORMACION] 

PONLECTURA[] CONSULTAR ] 
SI :NOMBRE = PRIMERO :DATO [ ESCRIBE FRASE 
[ EL DATO QUE BUSCAS ES ] :DATO 
:DATO PONLECTURA [] ESCRIBE 
[PULSA UNA TECLA PARA CONTINUAR] 
HAZ "PAUSA LC AGENDA ALTO] 
CONSULTAR.DATOS :NOMBRE 
FIN 

Para comenzar escribir: 
?AGENDA 




De lo anteriormente dicho, puede 
desprenderse que este lenguaje es un 
lenguaje para niños. Esto no es exacto 
puesto que se trata de un lenguaje dise- 
ñado para evitar los obstáculos iniciales 
del aprendizaje de la programación. Se 
trata de un lenguaje de novísima gene- 
ración, y tal vez en un futuro no dema- 
siado lejano se convierta en el primer 
eslabón de una serie de lenguajes que 
conviertan al ordenador en algo más 
cercano al usuario. 

Nada mejor que presentar un peque- 
ño programa en LOGO para que el lec- 
tor se dé cuenta de las innumerables po- 
sibilidades de este lenguaje y de su sor- 
prendente sencillez de manejo. 

Todos estamos acostumbrados a ver 
un programa de agenda en BASIC. Sa- 
bemos que acostumbra a ser un progra- 
ma de unas 100 líneas con varias ins- 
trucciones multiplexadas en una misma 
línea que hacen que el programa realice 
una serie de operaciones más o menos 
ininteligibles. Por cortesía de SONY, re- 
producimos un programa de agenda 
confeccionado en LOGO. Estamos se- 
guros de que resultará fácilmente inteli- 
gible para cualquier lector aún con unos 
conocimientos rudimentarios de progra- 
mación: «PROGRAMA A». 

En suma: Si usted desea iniciarse en 
programación, comience por LOGO. Si 
desea que le recomendemos una ver- 
sión, utilice la que hemos comentado en 
esta páginas: Nos lo agradecerá. 
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YIE Al KUNG-FU 2 



Konami/Serma 
Formato: cartucho 

Mandos: teclado o joystick 



ixl-ljftxP^FM n este extraordinario 

□ juego te presentamos 
j:Í:j:;:;:¡:;: □•■■i al aún no tan eonooldo 
Siíiíx D 11 ^ de Lee, el rey del Kung Fu 

rjLee Young deberá enfrentarse 
^^□°O n la banda de un antiguo 

□ enemigo de su padre, Yie Gah. 
jpÉ&vin ^i deci des jugar tú solo es 
KvXvipjComo si hubieras elegido en- 
$8&£ Afrentarte con toda la banda, la 
SSií:'-:'-: ¡zcual está compuesta por: 
•'•iSxí^n Qru P° 4e enanos que te 

atacarán por delante, por arri- 
liji-ií :•:•::: ^ba y por detrás. En esta parte 
'-'del juego dependes mucho de 
|vj:f.' : x¡:; Día rapidez de tus reflejos. Por 
Qcada grupo de enanos que Lea 
>:5: : -: x :'-: DYoung elimine obtendrás una 
:§:í x -: x - Dhojita de té que, aunque parez- 
iíxvxj: □ ca extraño, constituye el se- 
: x : x ':': x -: Dcreto de nuestro amigo. Y aho- 
: x -: X -: : :': : : : ara verás porqué. Tanto Leo 
□Young como sus enemigos do 
□seen un limite de energía., pero 
& lasólo Lee tiene la oportunidad 
n de recuperarla y es gracias a 
ggií n las b-ojitas de té. 
Sí:*:-: rjna vez pasados a los maldi- 



vas oport.i mamen re pero si 
con tu técnica lo derribas a él 
pasarás a le sigwimire f ase que 
consiste en luchar ootitra la 
bella v traicionera. Lan^ fang 
Ella : anarte de imponer au es 
tilo muy femenina do íu.Vna 
tiene unos abn.Mio.op diahóit 
nos. 

Po Chtng «h 01 Urador 1o ga 

ses venenosos Si lee respira 
estos gases queda oara.iizad< 
duran i* unos segur idos v 
?.hhig lúe w.ivecha pa> « rfla 
chafarlo dlami:uu.yex}di istei . 
siblemente su energía. 

La opción para dos jugado 
roa te permite ser Lee V- ,ung o 
aigimt -ie í.ip luchadores do.' 
emperador Loa ei i freo tam -en 
tos duran dos o tres rounds, se 
gún hayan empatado en ios 
dos primeros roo Tnaj? oonsa 
guir más de 30.000 ó 80.000 
puntos so consigue oara 'ee 
Young nuevas oportunidades 
de enfrentan» lento. 




HBSfó □ 

:'CI 



tos enanos, nuestro valiente 
amigo se encontrará cara a 
i x £ x -: x -: a cara con el verdadero peligro, 
: x -: x -':'-: x :' D el malvado Tie Gah: Este po- 
:$&x'£ a see xxn& Is-ráí 3 - trenza con la que 
:|í:í : : : x.' ; > Dte puede vencer si no la esquí- 



Sonido: bueno. 
Grañamo: excelente. 
Conclusiones: es un juego difí- 
cil y entretenido, con todas las 
extraordinarias posibilidades 
que son habituales en los juegos 
arcade (o de salón). Vale la 
pena. 

Precio aproximado: 5.200 
pts. 
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Antartlo Land. ese que debía 
l legar a mu refugio esquivando 
grandes hueros y bloques de 
hielo y también a grandes y 
traviesas Corsas que aparecían 
imprevistamente Pues bien, el 
luego que ahora comentare 
mos oe muy parecido, sólo que 
en vez de estar pasando frío, 
estás on una hermosa plava 
decidido a, participar en una 
carrera Por lo tanto el obleti 
vo es llegar a una mete en un 
tiempo limite. 

El recorrtd» se divide en 9 
etapas por una zona, de arreci 
Ces muy peligrosa 

Primera Case. Tienes un 
tiemp.. cifrad. ' en 2(X»0 para 
recorrer 20fK) mlhas Para no 
| perder nlngiin valioso según 
do tienes que evitai cualquier 
choque contra los arrodCes o 
embestir a ios tiburones que 
aparecen en las siguientes Ca 
ses Tas bestias marinas te 
apa reí sen de Improviso por lo 
que se requiere muoha aten- 
ción y reflejos para evitarlos. 

Las banderas que aparezcan 
a medida que avanzas tienes 
que cogerlas pues así obten 
drás más puntos 81 te interesa 
saber tu situación en cada mo- 



mento puedes mirar el indica 
dor en la parte superior de la 
pantalla. Si consigues llegar 
entro los diez primeros podrás 
poner tu nombre en Ja, pauta 
lia 

La. poten cía de tu motor es de 
750HP. 



Sonido: apropiado, aunque mo- 
nótono. 

Grafismo: correcto. 
Conclusiones: puede resultar 
entretenido para aquellos que 
no hayan jugado el Antarüc 
Land. 

Precio aproximado: 3.800 
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THE KNIGHT 
COHHABDER 



Discovery Informatic 
Formato: cassette 32K 



Aunque su titulo sugiera 
un Juego tntergaláctico 
éste es un buen progra- 
ma de utilidad para los usua- 
rios de MSX, ya que aumenta 
40 nuevos comandos al BASIC 
M8X. dejando Ubre la memoria 
RAM. 



nonu □□□□□□□□□□□□□□□□□□□□□□□□ 



p □□□□□□□□□□□□□□□ 
□ 

de este modo podrá darles 
fuertes cabezazos hasta derro- 
tarlos. Pero atención, el susto 
dura unos pocos segundos. En 
cuanto al travieso mono sólo 
podrá darle cabezazos cuando 
esté despistado o bien hay que 




]□□□□□□ 



Entre otras funciones este 
programa permite comprimir 
programas en Basic borrando 
espacios innecesarios o unien- 
do tantas líneas como sean po- 
sibles, podemos aumentar la 
velocidad de los programas, 
etc. Entre los nuevos coman- 
dos destacamos el IPLLTRON, 
que permite la ejecución paso 
a paso del programa en la im- 
presora. El comando estándar 
LTRON trabaja correctamente 
con la impresora, imprimien- 
do los números de línea tal y 
como son ejecutados. Entre el 
comando IPLLTRON y la nue- 
va versión mejorada del co- 
mando TRON existe la diferen- 
cia de que facilita la detección 
automática de los saltos que se 
producen en los bucles y se 
ahorra tiempo de impresión y 
también papel. 

Otras funciones incluidas y 
muy interesantes son el reloj 
en tiempo real, indicador par- 
padeante del cursor, recupera- 
ción de un programa borrado 
con NEW, almacenamiento de 
gráficos, volcado de variables 
en pantalla y con el IPL KEY 
ON se definen 26 nuevas te- 
clas. 



e-5 



Conclusiones: un programa 
de utilidad que vale la pena te- 
ner para sacarle más provecho 
al aparato. 

Precio aproximado: 2.900 
pts. 
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Boggy es un hombrecito 
con un pequeño proble- 
ma. Resulta que se le ha 
perdido un manojo de llaves, 
exactamente 7, en una ciudad 
subterránea. Es muy impor- 
tante que las encuentre ya que 
con ellas formará su nombre 



BOQQY 84 y así escapar de la 
extraña ciudad. Tal ciudad está 
habitada por dos hombrecitos 
y un mono que harán lo posi- 
ble para que el pobre Boggy no 
coja sus llaves. Pero sólo hay 
una manera de vencer a los lla- 
mados Harry y Slowly. Cuan 
do estén muy próximos a 
nuestro héroe, éste debe so- 
plarles e inmediatamente se 
tornarán blancos del susto y 



evitarlo saltando por encima 
de él. En el caso de que los hom- 
bres y el mono atrapen a Bog- 
gy será éste quien se lleve el 
susto y un buen mordisco, per- 
diendo una oportunidad para 
recuperar las llaves. 

En la primera fase Boggy 
puede ir hacia los lados, saltar 
de un piso a otro gracias a los 
muelles o bajar utilizando pa- 
sadizos secretos. En la segun- 
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da fase no tendrá las mismas 
ventajas, pero si otras. La pun- 
tuación es la siguiente: Por 
cada llave recuperada 200 
pinitos; por derribo de cual- 
quiera de los enemigos, 100 
puntos. A medida que se supe- 
ren las fases éstas se volverán 
más difíciles, aumentando el 
número de enemigos y la velo- 
cidad del juego. 



Sonido: monótono. 
Graüsmo: bueno. 
Conclusiones: ofrece no sólo 
dificultades sino también posi- 
bilidades diversas para salir de 
ellas. Es entretenido y requiere 
mucha paciencia. Prueba a re- 
coger las llaves formando co- 
rrectamente el nombre BOGGY 
84. 

Precio aproximado: 3.800 
pts. 
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SORCERY 



Discovery Inf ormatic 
Formato: cassette 32K 



Por fin el famoso juego de 
arcade en cinta. Sorcery 
es uno de los juegos de 
magia y aventura más apasio- 
nantes, las cuales se desarro- 
llan en 50 pantallas diferentes 
que pondrán a prueba tu habi- 
lidad. 

Tu misión es ayudar al He- 
chicero a reunirse con los de- 
más hechiceros que vayas libe- 
rando, los cuales se unirán a él 
en el Santuario para que cuan- 
do tú llegues en el Día Dorado 
puedan reunir sus fuerzas y 
derrotar en el Lugar Exaltado 
al pérfido Nigromante. No es 
fácil conseguirlo, pues se trata 
de recorrer todo el reino en 
poco tiempo, buscando a los 
hechiceros atrapados por el 
poder del Nigromante. Duran- 
te tu recorrido encontrarás 
numerosos objetos, muchos de 
los cuales te serán útiles, otros 
muy importantes y otros mor- 
tales. 

Para recoger los objetos hay 
que situar el Hechicero sobre 
ellos y pulsar el botón de dis- 
paro o la tecla SHD7T en caso 
de que emplees el teclado. Para 
usar un arma o lanzar tus pa- 
labras mágicas, también te va- 
les del botón de disparo o de la 
tecla SHIFT. También median- 
te el mismo recurso cambiar 
objetos o dejarlos caer, pero 
nunca en el mismo lugar de 
donde los has recogido. Tras 
jugar unas cuantas veces ad- 
quirirás la experiencia nece- 
saria como para conocer qué 
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COMIC BAXERY 



KonamiiSerma 
Formato: cartucho 
Mandos: teclado o joystick 
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□ objetos te sirven más que otros 

□ P 81 * provocar una serie de 
>:?:•£•:□ acontecimientos favorables 

□ para continuar este fantástico 

□ ^ na cosa que üenes w e te " 

n ner en cuenta es que tú posees 
una energía que la mantienes 



al tiempo que lo encontrarás 
simbolizado por un libro que 
se va desvaneciendo página a 
página. 



El protagonista de este 
juego es un simpático 
panadero que tiene un 
grave problema. El horario de 
trabajo en su panadería es de 9 
h de la mañana hasta las 5 de 
la tarde, en ese tiempo debe 
realizar la mayor cantidad de 
pan o como mínimo 4 paneci- 
llos para 4 personas que están 
esperando muy hambrientas; 
pero el verdadero problema 
está en que sin saber cómo se 
han metido en su local unos 
mapaches muy traviesos, que 
además de comerse el pan de 
nuestro amigo le apagan las 
máquinas, retrasando así mu- 
cho su trabajo. Esto obliga al 
panadero que esté en constan- 
te vigilancia para que las má- 
quinas estén todas encendidas 
cuando sean las 5 h. 

Para defenderse de los pe- 
queños perros mapaches Joe 
el panadero ha inventado una 
pistola paralizadora aunque 
no ha logrado que su efecto sea 
muy duradero; además el gas 
paralizador tiene un límite 
por eso Joe debe usarlo sólo en 
casos de gran peligro o bien 
cuando estén a punto de robar- 
le el pan. Si no desea usar la 
pistola sobre los perritos pue- 
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de saltar por encima de ellos 
con mucho cuidado. 

El juego comienza con 3 pa- 
naderos pero a medida que au- 
mentas tu puntuación la com- 
putadora te irá regalando más 
panaderos. 

¡Ah! El pan debe pasar por 
las cuatro máquinas para que 
esté en su punto. 



¡tafo 
lili 



mientras no entres en contac- 
to con fuerzas del Mal, por lo 



Sonido: bueno. 
Grafismo: bueno. 

Conclusiones: excelente juego 
tipo arcade de aventuras, en el 
que tienes que poner aprueba tu 
inteligencia, tu capacidad es- 
tratégica y también la astucia 
para llegar al final. 
Precio aproximado: 1.900 

*L 



que tienes que procurar evi- 
:*x : x : : : ^ tarlas como sea. De todos mo- 
$:5:5'.v ^ aos > s * sa l QS nial parado hay un 
S:£x : : : ^ modo de recuperar tu energía 
g:-;.;:;:;:': □ y para ello tienes que echar 
§|||£ □ mano a tu magia. 
gg-Sv □ También tienes en tu contra 
:' 

¡vií&x □□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□ 




Sonido: correcto. 
Grafismo: bueno. 
Conclusiones: es un juego que 
en un principio párece sencillo 
por eso debes comprobar tú 
mismo lo contrario. Necesitas 
muchos reflejos. 
Precio aproximado: 8.300 
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tanero ha sido atacado suele 
quedar un poco tarumba unos 
momentos y él es quien tiene 
que reanimarlo con sólo acer- 
carse y tocarlo. 

Tienes tres oportunidades 
para conseguir que al menos 
pasen 1.000 litros de agua. 
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SPLASH 



buenos. 

Conclusiones: es un juego de 
habilidad que te divertirá du- 
rante un tiempo. 
Precio aproximado: 2.495 
pts. 




t 



plash es un juego cuya 
misión es guiar a un fon- 
tanero para que abra las 
llaves de paso de una gruesa 
cañería por donde corre el 
agua. El asunto dicho de este 
modo parece muy simple, pero 
lo primero que nos encontra- 
mos es que nosotros, los juga- 
dores no conducimos directa- 
mente al fontanero, sino al 
dueñu de la casa que es quien lo 
acompaña. El fontanero nor- 
malmente tiende a quedarse 
allí donde aparece o donde el 
dueño de casa lo abandona 
para defenderse y defenderlo 
de los ratones y de las arañas. 
Tanto unos como otros difi- 
labor molestando al 




QQOOOQOQ 



AGENDA DE 
ESTUDIOS 



Advance 
Formato: cassette le 
Teclee: CLOAD 



aquellos estudiantes que se 
ven desbordados por la canti- 
dad de materias y por el poco 
tiempo de que disponen. La 
agenda les permite organizar 
un plan de estudios semanal 
introduciendo hasta diez asig- 
naturas con sus respectivas 
tareas a realizar, de modo que 
cuando se enfrente a tal o cual 
materia pueden visualizar en 
pantalla punto por punto lo 
que tienen que hacer. 

Así, poco a poco, vamos in- 
troduciendo al ordenador en 
los hábitos cotidianos y no lo 
tenemos sólo como un trasto 
para Jugar.. 

Obviamente para usar esta 
agenda tienes que cargar el 
programa en el ordenador, 
posteriormente introducir los 
datos que consideres necesa- 
rio, abrir o borrar fichero, etc., 
día por día entre lunes y vier- 
nes. Una vez que tienes todo 
realizado grabas en otra cas- 
sette tu agencia completa, pues 
será esta grabación la que usa- 
ras. 



E 



ste programa desarro- 
llado por Advance re- 
sulta de utilidad para 



Graflamo: correcto. 
Conclusiones: muy accesible. 
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operario subiendo y bajando 
por los distintos niveles de las 
tuberías y es más, el ratón cie- 
rra las llaves de paso que ya ha 
abierto el fontanero y el agua 
no llega al final si no abre to- 
das las llaves con suma rapi- 
dez. 

Para defenderse, el dueño de 
casa suele tirar con herra- 
mientas al ratón a quien para- 
liza por un tiempo precioso 
para que su fontanero pueda 
abrir las llaves. Cuando el fon- 
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Flags Flags 

Instrucciones S Z H P N C Instrucciones S Z H P N C 

I: los flags quedan determinados por el RRc x x x 

byte que viene del stack. RRC A - - - 

POPss ______ RRCr x x x 

PUSHAF ______ RRD x x x 

PUSHss ______ RST ninguna instrucción altera 

RESb.r ______ ningún flag 

RET ______ SBCA.r ' x x x x 

RETc ______ • SBCHL.ss x x x x 

RETN - - - SCF - - - 

RETI SETb.r 

RLA - - - x SLAr x x x 

RLr x x x x SRAr x x x 

RLCA - - - x SRLr x x x 

RLCr x x x x SUBr x x x x 

RLD x x x - XORr x x x 

RRA - x 



símbolos: 

x: el flag es alterado por la instrucción según el contenido de los registros implicados. 
-: el flag no se altera por esta instrucción en ningún caso. 
1 : el flag se pone a uno en cualquier caso. 
0: el flag se pone a cero en cualquier caso. 
?: el flag se pone a uno o a cero al azar. 

!: comportamiento particular. Se da una explicación en cada caso. 
FLAGS: 

S: signo' (en complemento a dos) 
Z: cero 

H: «halfcarry». Si hay carry entre el bit 3 y 4. 
P: parity/overflow. 
N: sustracción. 
C: carry o acarreo. 

Otros: 

r: registro 

ss: par de registros 
e: desplazamiento 
n: número entre y 255 
b: número entre y 7 
c: condición 
pq: dirección 



TABLA 1 



Analizaremos tres tipos de instruccio- 
nes: 



1.- Retorno de una subratina 
con couqicioh&igs 



A/BETc(c = 



Posibilita el retorno de una subrutina 
si y solo si se cumple una condición de- 
terminada, la cual viene determinada 
por el estado (valor) que tiene un flag de- 
terminado. RET c es equivalente a la 
sentencia en BASIC "IF... THEN RE- 
TURN" cuya utilización es parecida. 

En todas las instrucciones condicio- 
nales se utilizan unos símbolos para in- 
dicar, en el mnemónico, el flag que se va 
a explorar, el valor que tiene en ese mo- 
mento y el estado en que debe ejecutar- 
se la instrucción. 



SIMBOLO 

C 

NC 

Z 



NZ 
PE 
PO 

M 



SIGNIFICADO 
CARRY a "1" 
CARRYa"0" 
ZEROa'T' 
(el resultado 
fue 0) 
ZEROa"0" 
PARIDAD "par" RET PE 
PARIDAD 



EJEMPLO 
RETC 
RETNC 



RETZ 
RETNZ 



"impar" 

SIGNa"1" 

(menos) 

SIGNa"0" 

(más) 



RETPO 

RETM 

RETP 



Para todos los casos: 1) si se cumple 
la condición se ejecuta un retomo al pro- 
grama principal o bien al monitor BASIC 
(en caso de RET). 2) si no se cumple la 
condición se ejecuta la instrucción si- 
guiente. 



8. Operaciones aritméticas simples 
en función del valor de CAREY 

A) INSTRUCCION ADC 

Es un grupo de instrucciones que se 
comportan al igual que ADD, es decir, 
que suman datos, registros y parejas de 
registros, pero que además, una vez 
realizada la suma se añade el valor del 
CARRY ("las que llevamos de la opera- 
ción anterior"). Todo ello permite traba- 
jar en números mayores a 65535 
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($FFFF), ocupando por tanto más de 
dos bytes cada uno. 

Pongamos un ejemplo: imaginemos 
números de tres bytes que ñus per míten 
coger valores entre SüoOüüü a 
$FFFFFF (0 a 1677/216 dec) Siendo 
asi ejecutando ADD o SÜB no podre 
mos íeaiizai operaciones llevando un 
numero a cada ¡egistro o pareja «Je e 
gistros, tendremos que operar el núme- 
ro en tres partes una para cada byte. ói 
tenemos un numero colocado en las po- 
siciones $4061- , $40U) y $40C1 y olio 
en $4382, $43Ü3 y $4384 de más a me 
nos significativo, paia sumarlos y dejar 
el resultado en $Ai6B. $AlBi $AtBD 
la rutina sera 

Empleamos RL x>mo punteio para el 

erimei numero. Bl, para el segundo y 
E para el resultado. 
Cargamos los punteros cor» sus res 
pectivas direcciones indicando i«>s by 
tes menos significativos ne :aua nume 
ro 

LD HL, $40C1 
LD BC, $4384 
LD DE, $A1BD 

Seguidamente cargamos er A el pri 
mei oyte del segundo numero y en B el 
primer byte del pnmer número sumán- 
dolos a continuación: 

LD A, (BC) 
LD B, (HL) 
ADDA.B 

Horremos ei resultado er' ei primer 
byte ciei esuitarit v decrernentemos los 
punteros 

LD(DÉ), A 
DEC HL 
DEC Bl 
DEC DE 

Si la surna de ios dos primeros oytes 
na siüo mayor que $F> , ei nao, aRh < 
habrá tomado ei vaioi i si no ha siuo 
mayoi se encontraiá a cer<., 

Cargamos ahoia en los registros ios 
segundos bytes de los sumandos y ios 
sumamos, pero esta vez no con AUD 
sino con ADL porque si hay un LARR i 
lo sumaremos ai resultado- 

LD A, (BC) 
LD B HL) 
ADC A,6 

Guardamos el resultado, decremen- 
tamos de nuevo los punteros y suma- 
mos los terceros bytes con ADC: 

LD(DE), A 
DEC HL 
DEC BC 
DEC DE 
LD A,(Bi 
a> 

ADC 



Guardamos el l esultaüo y /a Tenemos 
la suma 

LD(DE), A 

B/ iHSTEOCCIOH sdc 

Su Tuncionamieiik- as ei de Aut peto 
Md'd realizar susir acciones -sB«. A,r 
i esia • Je A y a X)l mi iuai M » ■ i esia oei • e 
suitauo el tlag v ARR y r pueoe ser ur< 



numero, (HL), (IX+d), (lY+d), 
A B c,ü,E,H y L. Para realizarla misma 

•peí ación pero con parejas de registros 
se utilizan SBC HL.rr", y pudiendo ser 

rr rl BC, DE o SP (SP="stack poin- 
ter puntero de la pila). 

SUB al no trabajar cun parejas de re- 
gistros, para restar dos números de die- 
ciseis bits utilizarnos SBC HL, rr" de- 
Diendo estar uARRY en posición cero, 
para colocarlo a cero empleamos la ins- 



Ifecto de algunas instrucciones, sobre el registro F (llags). 




S Z H P N C Instrucciones 



x x x x x 

X X X X X 

X X X X X 

- - x - x 

- - x - x 

- - x - x 
x x 1 x 
? x 1 ? - 



kDCA,r 
ADCHL.ss 
ADD A,r 
ADDHL,ss 
ADDIX,ss 
ADDIY,ss 
ANDr 
BITb.r 
CALLpq 

CALLc.pq - - - 

CCF - - ! - x 

(! toma el valor previo del flag C) 
CPr x x x x 1 x 

CPI x ! x ! 1 - 

CPD x ! x ! 1 - 

CPIR x ! x ! 1 - 

CPDR x ! x I 1 - 

!:Z es 1 si BC llega a 
y P/V es 1 sí A=(HL) 
CPL - - 1 - 1 - 

X X X X - X 
X X X X 1 - 



Fiaos 
S Z H P N C 

x x x x - 



INCr 
INCss 

INA,(n) 

INr,(C) x x x x - 

INI ? x ? ? 1 - 

IND ? ! ? ? 1 - 

!:Z=1 si B llega a o 
INIR ? 1 ? ? 1 - 

INDR ? 1 ? ? 1 - 

JP ninguna Instrucción altera 
ningún flag 

JR ninguna instrucción altera 
ningún flag 

LD(BC),A 

LD A,(BC) 

LDA.I x x ! - 

LDA.R x x ! - 

LD ninguna de las otras instrucciones 

LD altera ningún flag 

LDI ! - 

LDD I - 

!rP/V=0 si BC=0 

LDIR - 

LDDR - - - 

NEG x x x x 1 x 

NOP _____ 

ORr x x x 

OUT(n),A 

OUT(C),r 

outi tirirú 

- - OUTD ? ! ? ? 1 - 

l:Z=0siBC=0 

______ OTIR ? 1 ? ? 1 - 

- - - OTDR ? 1 ? ? 1 - 

- - - POPAF !!!!!! 

símbolos: 

x: el flag es alterado por la instrucción según el contenido de los registros implicados. 
-: el flag no se altera por esta instrucción en ningún caso. 
1 : el flag se pone a uno en cualquier caso. 
0: el flag se pone a cero en cualquier caso. 
?: el flag se pone a uno o a cero al azar. 

!: comportamiento particular. Se da una explicación en cada caso, 
r: registro, 
ss: par de registros 
e: desplazamiento, 
n: número entre y 255. 
b: número entre y 7. 
c: condición, 
pq: dirección. 




TABLA 2 
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0/ INSTRUCCION SCP (Set CARKY Flag) 

Tiene por objeto poner a uno al flag 
CARRY. 



3.- Instrucciones para realisar 
comparaciones 
para instrucciones con 



en 



base 



Anales 



A/ INSTRUCCION CP 

Corresponde al formato "CP r" pu- 
dendo ser "r": (HL), (IX+d), (lY+d). 
A,B,C,D,E,H,L, o bien un número. 

Compara "r" con A, efectuando A-r, y 
no guarda el resultado en ningún sitio, 
quedando, por lo tanto, todos los regis- 
tros sin alterar. 

De hecho, coloca a todos los flags en 
función del resultado obtenido, prepa- 
rándolos para emplear a continuación 
instrucciones condicionales: 

Si A es mayor que "r" entonces C es 
cero 

Si A es igual que "r" entonces C y Z 
son cero 

Si A es menor que "r" entonces C es 
uno 

En la forma "CP A", los flags después 
de realizar A-A toman el valor cero. "IF 
A=r THEN RETURN" del BASIC equi- 
vale a CPr seguido de RET Z. 

B/ INSTRUCCION CCF 
(Complement Carry Flag) 

No repercute en ningún registro y co- 
loca a CARRY a uno si estaba a cero, o a 



ALTERACIONES EN LA SECUENCIA DE 
EJECUCION: SALTOS ABSOLUTOS, 
RELATIVOS 7 CONDICIONALES 



La secuencia normal de ejecución en 
un programa en CM se realiza byte a 
byte, de menor a mayor, hasta encontrar 
un RET que devuelva el control al moni- 
tor BASIC. Si esta secuencia no se pu- 
diese alterar no nos sería muy útil pro- 
gramar en CM, puesto que entonces 
para hacer una cosa repetidamente 
cierto número de veces la tendríamos 
que poner una a continuación de otra, 
tantas veces como la quisiéramos repe- 
tir. Sería el equivalente a que en BASIC 
no existiera el GOTO o el FOR... NEXT. 

En realidad esta secuencia si se pue- 
de alterar, y para ello utilizamos toda 
una serie de instrucciones en CM que 
nos permiten realizar tanto saltos condi- 
cionales como incondicionales, y en 
cada uno de estos dos tipos, saltos ab- 
solutos y relativos. 




SALTOS ABSOLUTOS: «JUMP» 

Ya sabemos que a diferencia del BA- 
SIC en el que las instrucciones se identi- 
fican por el número de línea, en CM se 
identifican por la posición de memoria 
que ocupan. 

Así, para saltar el curso del proceso a 
una parte determinada del programa 
disponemos de la instrucción JUMP (ho- 
móloga a GOTO). Su símbolo es "JP 
nn" donde "nn" es un número de 1 6 bits 
que indica la posición de memoria a la 
que se efectúa el salto. Por ejemplo, 
para saltar a una instrucción situada en 
la posición de memoria $ 4093 usare- 
mos JP $4093. 

Hay que estar atento al efectuar un 
salto para que éste no caiga en medio 
de una instrucción de dos o tres bytes, 
puesto que el Z80 interpretará a partir de 
ahí todos los códigos desplazados una 
posición, dando por resultado algo sin 
sentido. 

La forma «JP (HL)" saltará a la posi- 



ción de memoria indicada por el par de 
registros HL. Esta forma solo es utiliza- 
ble para los pares de registros HL, IX e 

SALTOS RELATIVOS: «JUMP RELATIVE» 

Una forma exclusiva del CM es saltar 
"n" bytes hacia delante o hacia atrás. 
Para ello se utiliza la instrucción JUMP 
RELATIVE, que se simboliza a través de 
"JR e" donde "e" es el número de bytes 
que hay que saltar hacia adelante o ha- 
cia atrás. Como el salto puede ser en 
dos sentidos, el Z80 interpreta en com- 
plemento a dos el byte "e", en conse- 
cuencia sólo podremos saltar entre 1 27 
bytes hacia adelante y 1 28 hacia atrás. 

La mejor manera de calcular el valor 
de un salto relativo en un listado es em- 
pezar a contar a partir del primer byte de 
la instrucción que sigue a "JR e", ésto es 
válido tanto para los saltos hacia ade- 
lante como hacia atrás. 

Una de las ventajas de utilizar los sal- 



INSTRUCCIONES 


EJEMPLO A 


EQUIVALENTE EN BASIC 


CPr 




IF A =rTHEN GOTOnn 


CPr 

ÚSMZxm 




IF A orTHEN GOTOnn 


CPr 

JP_Con_ 




IF A < r THEN GOTOnn 


je.NÍLnn_ _ 




IFA> = rTHEN GOTOnn 


CP$00 




IF A > =128 THEN GOTO nn 


CP$00 




IFA<128THE GOTO nn 
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tos relativos es que éstos funcionan in- 
dependientemente de las posiciones de 
memoria en que se halle el programa, 
por lo que si cambiamos su localización 
los saltos no se alteran. Otra ventaja es 
que mientras los saltos absolutos ocu- 
pan tres bytes, los relativos ocupan sólo 
dos. 



SALTOS CONDICIONALES 

Son un grupo de instrucciones que 
junto a las que afectan a los flags permi- 
ten construir sentencias equivalentes a 
"IF condición THEN GOTO" del BASIC. 
Solamente se ejecutará el salto, absolu- 
to o relativo, si un determinado flag está 
en un valor en concreto, si no la instruc- 
ción se ignora y el programa continúa la 
secuencia normal. Por ejemplo "JP NC 
nn" saltará solamente a la posición de 
memoria "nn" si el flag C está a 0. 

Algunas de las combinaciones más 
utilizadas tanto para saltos condiciona- 
les como para lazos y bucles son los de- 
tallados en el ejemplo A. 



BUCLES T SUBRUTINAS 

La forma de tratar las subrutinas en 
CM es prácticamente igual a la que se 
tratan en BASIC. Así ya vimos que el 
equivalente a "GOSUB" es "CALL nn" 
donde "nn" es una dirección de memo- 
ria a la que se transfiere el control del 
programa. Al ejecutar "CALL nn" se 
guarda automáticamente en la pila 
"stach" la dirección de la siguiente ins- 
trucción que debería ser ejecutada si no 
existiese la subrutina a la que se indica 
desplazarse, y se carga el registro PC 



OE05 



45 



LD C,5 

$5555 
BUCLE 

DECC 



Contador 



Dirección inicio bucle 



->• Si C = entonces Z = 1 




(contador del programa) con la dirección 
"nn" de CALL, con lo que la siguiente 
instrucción que se ejecutará será la que 
se encuentra en la dirección "nn". 

Con el formato "CALL c, nn", siendo 
"c" la condición que viene indicada por 
el flag, podemos dirigir la ejecución del 
programa hacia subrutinas de la misma 
manera que lo hacíamos con los saltos 
condicionales. Por ejemplo, "CALL Z, 
$4082" dirigirá a una subrutina que em- 
piece en la dirección $4082 sólo en el 
caso en que el flag Z esté en el valor 0. 

En CM se emplea la propia pila 
"stack" del Z80 para almacenar las lí- 
neas de retorno de subrutinas, siendo el 
RET una especie de "POP PC" (PC es 
un registro de 1 6 bits que se utiliza como 
contador de programa en el Z80), es de- 
cir, al ejecutar un RET el programa re- 
gresa a la dirección de memoria almace- 
nada en la pila "stack", por lo que des- 
pués de ejecutar una rutina la pila debe 
quedar igual que como estaba antes de 
llamarla, por lo que hay que tener cuida- 
do si empleamos PUSH o POPs. 

Si realizamos un RET, después de 
haber hecho unos PUSH, a la dirección 
original, podemos almacenar la posición 
del puntero de la pila (stack pointer) SP 
en la memoria mediante "LD (nn), SP" y 
antes de ejecutar el RET devolver el 
puntero a la posición original con "LD 
SP, (nn)". 

Todas las direcciones CALL son de 
saltos absolutos, y no podemos hacer 
llamadas relativas del tipo "JR e". 

TIPOS DE BUCLES EN CM 

Principalmente existen dos tipos de 
bucles análogos a los que podemos 
construir en BASIC: en uno utilizamos 
un contador para controlar un salto con- 
dicional determinado por el valor del 
contador, y en otro el contador al tomar 
un valor determinado efectuará un salto 
condicional automáticamente. 

N Tipo contador-condición-salto 
condicional: 

Tomamos un registro cualquiera 
como contador, a continuación pone- 
mos el bucle y una instrucción que con- 
trole, mediante un flag, al contador, por 
último una instrucción de salto condicio- 
nal. Ver ejemplo B. 



Se puede emplear tanto saltos relati- 
vos como absolutos, así como cualquier 
tipo de instrucción como text (p.e./ "CP 
r"). Si empleamos un solo contador úni- 
camente podremos repetir el bucle 256 
veces, en el caso en que tuviésemos 
que hacerlo mayor número de veces de- 
bemos emplear un par de registros, y la 
instrucción OR, ya que DEC rr no altera 
a los flags. 

B/ Tipo contador-salto condicional 
automático: 

Utilizamos la instrucción "DJNZ e", 
esta instrucción utiliza siempre como 
contador el registro B, al cual decremen- 
ta en una unidad, comprueba si es cero 
y si éste es el caso efectúa un salto con- 
dicional relativo como "JR NZ, e", donde 
"e" será el número de bytes hacia atrás 
que debe saltar para ir en la dirección de 
memoria marcada como inicio, por 
ejemplo: 

LD B,5 

Inicio del bucle 
DJNZe 

Si utilizamos este tipo, la longitud de 
los bucles será como máximo de 1 27 by- 
tes al utilizar saltos relativos. Por otra 
parte los saltos tanto pueden realizarse 
hacia adelante como hacia atrás, así 
como saltar la propia instrucción con 
"DJNZ $FE". 

También se puede construir una es- 
tructura de varios bucles empleando la 
pila stack para almacenar los 
valores de B: por ejemplo 





LD B, $05 


LAZO 1 


PUSH BC 




BUCLE 




LD B, $04 


LAZO 2 


PUSH BC 




BUCLE 




LD B, $02 


LAZO 3 


PUSH BC 


BUCLE 




POP BC 




DJNZ LAZO 3 




POP BC 




DJNZ LAZO 2 




POP BC 




DJNZ LAZO 2 




POP BC 




DJNZ LAZO 1 
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TRUCOS DEL 



PROGRAMADOR 




I 



LA PUNCION WIDT 
PASA IMPRESORA 



i4ui¿*i, &ifcu¿io de vosotros tenga una de 
esas impresoras «diabólicas» en las que 
no es posible preestablecer la anchura de 
los listados. De ser así, seguro que habréis 
sufrido las molestias de necesitar centrar 
el pap á I . p i i tostante exactitud o de resig- 
i¿ai'Sti a peraer unos cuantos caracteres 
por el margen derecho. 

Estos usuarios y aquéllos que no quie- 
ran complicarse la vida mandando códi- 
gos de impresión o tabulando a bulto con 
los interruptores, sólo tienen que hacer 
uso de una pequeña rutina en C.M. para 
controlar a voluntad el número de colum- 
nas de la impresora. 

He aquí su listado en ASSEMBLBR: 

Esta rutina funciona de una forma muy 
simple. En síntesis, se trata de poner un 
parche en la rutina del BIOS encargada de 
sacar caracteres en los distintos periféri- 
cos (RST SPH18). La salida se realiza por 
la pantalla cuando la dirección de memo- 
ria &h.£'416 contiene un cero, en otro caso 
el carácter en cuestión se manda a la im- 
presora. Como observaréis lo primero que 
comprueba la rutina es el valor de la refe- 
rida posición, para saber el periférico re- 
ceptor. Gracias a esto podemos ordenar 

11 r euji uu de carro seguido de un avance 
de liaaa cada vez que ha sido enviado un 
uúxnero de caracteres determinado de an- 
temano. Por último, resta poner el parche 
en la dirección adecuada, que es la 
6THFEE4. 

Si no posees un ensamblador, teclea las 
líneas del PROGRAMA A. 

Haz RTJN y, si la suma es correcta, teclea 
NEW. Ahora podras hacer uso de un pe- 
queño cargador. 

Gratín esta linea o - 1 8AVB "CA¿í.i.iflTA" 
y deja ia cáUxXA <*i» dx&ruha. a continuación 
escrioe en modo directo: "BSAVE n CAS: 
BLISTA", 62290, 62338. 



LISTADO DE ASSE MBLER 



GEN Assembler. 


Page 


1. 




errors: 


00 










10 


LPRINT: 


EQU 


#A5 




20 




ORG 


62290 


F5 


30 


LISTA: 


PUSH 


AF 


3A16F4 


40 




LD 


A, <#F416> 


B7 


50 




OR 


A 


2822 


60 




J R 


Z, NO 


Fl 


70 




■non 

POP 


AF 


F5 


80 




PUSH 


AF 


FE01 


90 




CP 


1 


281A 


100 




JR 


Z, EX IT 


FE20 


110 




CP 


32 


3818 


120 




JR 


C, NO 


3AE7FE 


130 




LD 


A, <#FEE7) 


3C 


140 




INC 


A 


FE23 


150 




CP 


35 


200B 


160 




JR 


NZ, IN 


3E0D 


170 




LD 


A, 13 


CDA500 


180 




CALL 


LPRINT 


3E0A 


190 




LD 


A, 10 


CDA500 


200 




CALL 


LPRINT 


AF 


210 




XOR 


A 


32E7FE 


220 


IN: 


LD 


< #FEE7 ) , A 


Fl 


230 • 


EX IT: 


POP 


AF 


C9 


240 




RET 




3EFF 


250 


NO: 


LD 


A, 255 


18F7 


260 




JR 


IN 




270 




ORG 


¿FEE4 


C352F3 


280 




JP 


LISTA 


FF 


290 




DEFB 


255 



00A5 

F352 

F352 

F353 

F356 

F357 

F359 

F35A 

F35B - 

F35D 

F35F 

F361 

F363 

F366 

F367 

F369 

F36B 

F36D 

F370 

F372 

F375 

F376 

F379 

F37A 

F37B 

F37D 

FEE4 

FEE4 

FEE7 



Pass 2 errors: 
Table used: 



00 
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PROGRAMA A 



10 FORX=62290!TO62334! 

20 READVS : POKEX, VAL < " &H" + V$ ) 

30 S=S+VAL("&H"+V$) 

40 NEXT 

50 DATA F5, 3A, 16, F4 , B7 , 28, 22, Fl, F5, FE, 1, 28, 1A, 
FE, 20, 38, 18, 3A, E7 , FE, 3C, FE, 23, 20, B, 3E, D, CD, A5, 
0, 3E, A, CD, A5, 0, ÁF, 32, E7, FE, Fl, C9, 3E, FF, 18, F7 
60 IFS05561THENCLS: PRINT"HÁY UN ERROR" 



CARGADOR 



% .£uEAR200 , 62-289 ! : ÜLÜAÜ'' CAS ¡¡ Bl i STA" i PÜKfc&KFEfc© 
&HF 32 FOK'E-&HF£ES , m&¿ : PüKi.- &¡-iFr.:Lb , U\C3 
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Esto te dejará la rutina lista para ser 
utilizada con sólo llamarla con 
RUDTCAS:"; L0AD n CAS:", R o MER- 
GE"CAS:"yRUN. 

Cuando la tengas en memoria puedes ol- 
vidarte de eDa, a no ser que quieras alterar 
el número de columnas, con POKE 
SPHF368, nuevo no., o inutilizarla, con 
POKE SfHFEE4, 201. 

Joaquín López 



minhapiz 



Con este pequeño programita muchos 
colegas pondrán las bases para desarro- 
llar un programa de lápiz gráfico. 

10 'MINILAPIZ 

20 TARAMSX 

30 SCREEN 2: P= 1 

40X=128:Y= 100 

50 PSET (X, Y) : Z$=INKEY$ 

60 IP P + - 1 THEN PRESET (X Y) 

70 IF Z$= m THEN 50 

80 IF Z$=CHR$ (32) THEN P= - 1 

90 IF ASC (Z$)=28 THEN X=X+ 1 
100 IF ASC (Z*)=29 THEN X=X- 1 
1 10 IF ASC (Z$)=30 THEN Y=Y— 1 
120 IF ASC (Z*)=31 THEN Y=Y+ 1 
130 GOTO 80 

Lorenzo Parra 



GRATEOS 



A continuación os envío este pequeño 
programa de gráficos, valiéndome de las 
funciones S = Escala, A= ángulo y C= color. 

36 Color, 1: SCREEN 2 

38 A$ ="U2E2F2D2G2H2" 

40ForK=lto37 

42ForJ=0to3 

44X=Rnd(l>16 

46 Draw" c=x; s=k; a=j; bml28, 96xa$; 
bm64, 48xa$; bml92, 48xa$; bm64, 
144xa$; bml92, 144xa*;" 
48NextJ,K 
80 Goto 60 

Cambiando los datos de la variable A$, 
conseguiremos infinitos gráficos. Se trata 
simplemente de buscar la combinación de 
letras y números apropiados. 

Podemos utilizar las letras R L U D E F G 
H y los números no conviene que sean ma- 
yores de 10. 

Lorenzo Martínez Rubio 



NUMEROS ALEATORIOS 
POSITIVOS T NEGATIVOS 

Si se desea obtener una sucesión de nú- 
meros aleatorios cada vez diferentes y que 



puedan ser unas veces positivos y otras 
negativos dentro de la misma sucesión, 
podemos utilizar la siguiente subrutina.. 

10 A = Int(RND(-TTME)*(-20) + ll) 

20 PRINT A 

30 FOR S = 1 TO 100: NEXT 
40 GOTO 10 

Es decir: multiplica INT (RND( -TIME) 
por un número negativo, en este caso 
(-20). Obtendrás 20 números aleatorios 
que van desde -9 hasta 10 positivo inclui- 
do también el 0. 

Los números 20 y 1 1 de la línea 10 pue- 
den ser otros que te interesen, dependien- 
do de la amplitud de números aleatorios 



que quieras obtener, pero procura que el 
segundo (en este caso el 11) sea la mitad 
más 1 del primer número (en este caso el 
20), pues de lo contrario obtendrás más 
números positivos que negativos o vice- 
versa. La línea 30 sólo sirve para ralenti- 
zar la aparición en pantalla de los núme- 
ros que se van generando. En un progra- 
ma en acción puedes suprimir esta línea, e 
incluso la línea 20 si no necesitas que apa- 
rezcan en pantalla. Y hasta la línea 40 si 
esos números quieres que se produzcan 
en determinados momentos del progra- 
ma. Es decir, sólo la línea 10 es la que pro- 
duce esos números aleatorios unas veces 
positivos y otras veces negativos. 




Para complacer a los numerosos lec- 
tores que nos lo han solicitado, he aquí 
el índice de programas que hemos publi- 
cado durante el pasado año, que abarcan 
desde el número 1 hasta el doble 12/13. 



PROGRAMAS DE GRAFICOS 



Cuadrados girados 

Gráficos I 

Gráficos n 
Gráficos m 
Gráficos IV 
Gráficos V 
Madeja 



9 
4 
5 
6 

7/8 
10 
1 
2 
1 
5 
9 
1 
1 



«^f> PROORRrfíB 

II I II 



Máscara africana 
Rombo .... 




Para contlmmr probando las 
pos Wlld.de* gráfica» do tu 
SX. hemos 




II II 



-v ' ■>> ,<-: lú IT 
M •» IM tHKH I . .Mi 
I* B*lNT<NNOll.*lvli 

m wi»,.< 
»• NC«r * 
■ M «.i k 

lié M»3.l«iMiA«m«>i-'jrt.> 
i» *n l-*'o iét »nr M 

14» lM(.»>Ui>|.l<!l). 
IM lliC<l.li-.|M,l«li.LIUI 
.l*«9,l.í)- • •,**> 
IM . i.-,,,.. 
. 1-5. 'i35.«». 
I7« «JT I 
IM Wjtu IM 




• UBI I I M. I H » 

KttiM ¿■tl'WtlII-l»' 
»"»>! «» 

» a«aii'M-nn>M>iiM-i 

M <0» 1-1 10 • 

<•*«•!• ti ilIKI IHLN 



M LIHt.l 
M LIICU 



I il'Jil IHKN 1-| 



PROGRAMAS DE UTILIDADES 



Archivo en casa. El . 
Archivo discográfico 
Bíorritmo8l 
BiorritmosII .. 
Calendario * 




7/8 

4 

2 
11 

3 

12/13 
S 
S 
2 



3 
1 

10 




PROGRAMAS EDUCATIVOS 



Así suena tu MSX 

Curso de mecanografía 

Geografía „ 

Hagamos música 

Lección de astronomía 
Minuetto de Mozart 



10 
7/8 
4 
4 
1 
9 
11 



i * i ¡\uui\i u ii D 




Picasin 6 

Series lógicas 7/8 

Solfeo 4 

Tabla periódica de los elementos 12/13 




l PROGRAMA GANADOR DE 
■ NUESTRO CONCURSO DE 
: PROGRAMACION EN MSX 



\POR FRANCISCA ROSSELLO* 




Y.í- 



-laiaiiiaiBiamiia 



Alienígenas del espacio 2 

BaqueiraBeret 6 

Batalla espacial 

Bingo 

Breakout 2 

Caza,La 7/8 

Cazasubmarinos 8 

Cousteau 10 

Entropía 11 

Fuga,La 9 

Helicóptero de salvamento 7/8 

Hundir la flota 6 

Indianápolis 1 

Jackpot 4 

Línea Mortal 8 

LuckyLuke , 9 

Mazmorra tridimensional 5 

Midway 11 

Moonwalker 10 

Objetivo Nueva York 1 

OrodeAlí-Babá,El 7/8 

Palillos 3 

Piscis 5 

Puzzle 3 

12/13 

4 

Tres en raya 3 

Tron 4 
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RS-101 THE KNICHTS COMMANDER 

- 40 nuevos comandos sasic 

- comprime programas 

- Recupera ios programas ochados 
accidentalmente 

- 22 Tedas extras 

- Ainiacenaie cíe gráficos en cassette 

- vcicaac de vanaoies en ia pantalla 

- Deia completamente Ifore ia memoria RAM 

- > muertas mas utilidades 

- Contiene un programa de entrenamiento 

- Manual de instrucciones en castellano 



RS 105 STAR SEEKER. 

- El Star seeker na stdc diseñado como una 
interesante introducción a la astronomía que 
capacita al usuario sin conocimientos previos 
para aprenoer cosas sobre las estrellas v los 
planetas 

- Es una guia de referencia v una ayuda para el 
astrónomo profesional. 

- Datos sobre mas óe 500 estrenas de todos los 
planetas del sistema solar y numerosas 
constelaciones. 

- Se acompaña el drograma con un exhaustivo 
libro de instrucciones en castellano 

-100 Código maquina 









RS-107 MUTA NT MONTY. 

- Ayuda a Monty a conseguir las dos 
grandes ambiciones de su vida. 

- Guíale a través de 40 terroríficas 
habitaciones para así ser el héroe del día. 

- Música y efectos sonoros. 

- Sprltes en alta resolución. 

- 100 % Código máquina 

- instrucciones en castellano. 





r1C4 SUPERWOL. 

- Una fílflarjyv realista simulación del fútbol 
americano, que combina toda la acción del 
propio juego con las reglamentaciones del 
luego real 

■ uno o varios jugadores. 
• Cuatro tiempos de 15 minutos cada uno. 

- joysticK o teclado.. \. 

■ instrucciones en castellano 




«103 SORCERV. 

- Esta emocionante «Arcada-aventura» te 
transporta a la tierra del NIGROMANTE para 
luchar contra el y derrotarlo 

- Detallados gráficos y excelente animación. 

- 50 Pantallas para explorar. 

- Música ambiental v efectos sonoros, 
- 100 % Código máauina. 

castellano 



A EN TIENDAS ESPECIAL!Z> 
ES ALMACENES 



DISTRIBUIDO 



POR 



OVERY 

informatic 



Arco Iris, 75 T. 256 49 08 09 / 08032 -BARCELONA 



LAS BUENAS COMPAÑIA 

DEUNMSX 

PROFESIONAL 




MITSUBISHI 

COMPUTER SYSTEM 



ML-FX1/2 □ 

El MSX profesional 

80 Kb RAM. 

Teclado Numérico. 

ML-FX2 Programa MAP (B. Datos/ 

P. Textos / H. Cálculo Gráficos/ 

Comunicaciones. 

ML-30FD □ 

La Máxima capacidad en disco. 
1 Mb. (720 Kb. Formateado) 
8 Formatos diferentes 

Chasis nrpuictn nara unii-iaHoc 



ML-10 DR □ 

Cassette especial para ordenador. 
Admite 1200/2400 baud. 
Cuentavueltas. Señal de monitor. 
Alimentación a red o baterías. 

ML-10 MA □ 

Ratón para diseño gráfico. 
Programa CHEESE de diseño. 
24 Funciones gráficas. 



APLICACIONES □ 

Un Software profesional para un 
ordenador profesional. Contabili- 
dad, Control de Stock, Factura- 
ción. 

CT-1501E □ 

Monitor/Televisión. 
Alta definición. 
Conector SCART. 
Mando a distancia. 



CUPON DE RESPUESTA 



Desearía poder tener más 
información sobre los aparatos 
marcados Kl de MITSUBISHI. 

Sr.: 



Domicilio: 



Población: 



MABEL, S.A. 



